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Editorial 



AHORA LA 
JUSTICIA 

Entre las noticias relacionadas con el 
software MSX ha saltado una que no tie- 
ne nada que ver con la tecnología ni con 
nuevos programas. Al menos por sus ca- 
racterísticas apareció en las páginas de su- 
cesos y no en las de ciencia y tecnología 
de los periódicos. En efecto, dos compa- 
ñías dedicadas a la comercialización de jue- 
gos en cassette fueron allanadas en Barce- 
lona, confiscado todo el material y 
detenidos sus integrantes por presunta pi- 
ratería. 

Indudablemente, como es notorio, la 
irrupción de las nuevas tecnologías ha tor- 
nado obsoletas las leyes que regulan la pro- 
piedad intelectual y se hace muy difícil 
controlar el trasiego comercial de los nue- 
vos soportes —vídeo, software para orde- 
nadores, etc.—. Esta situación enrarece 
cada vez más el mercado, haciéndose en 
determinados casos muy difícil establecer 
la legalidad o ilegalidad de los negocios. 
Esta tremenda confusión permite que mu- 
chos se aprovechen de ella y originen ope- 
raciones de varios millones de pesetas que 
inciden en el progreso de las empresas más 
escrupulosas, ya que ellas no pueden com- 
petir con los precios que ofrecen los pri- 
meros debido a los costos de producción. 
Lo único que pueden oponer al abuso es 
su prestigio de marca y la calidad de sus 
productos. 

Pero no sólo son los grandes pescado- 
res quienes ganan en el gran río revuelto 
del comercio de software. También lo ha- 
cen cientos y cientos de pequeños pesca- 
dores, cuyas cifras de facturación llegan a 
ser astronómicas en su conjunto. 

Mientras tanto llega una ley que regule 
con claridad los derechos de autor y la pro- 
piedad intelectual, confiamos en el justo 
criterio de nuestros jueces para paliar el 
tremendo daño que se está cometiendo en 
el campo del software. Claro que no se tra- 
ta únicamente de confiar sólo en la justi- 
cia de los tribunales, a quienes compete 
dictaminar la calidad del delito o su ausen- 
cia, ni en las acciones policiales, sino apor- 
tar nuestra colaboración. Sólo con respe- 
tar el trabajo de los demás es suficiente. 

Manhattan Transfer, S.A. 
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WIDTH80 



Tengo un Spectravideo 738 
X'press, que como sabéis tra- 
baja en 80 columnas si se utili- 
zan los sistemas operativos 
CP/M o MSX DOS. De todos 
modos, a mí me interesaría tra- 
bajar en 80 columnas desde 
BASIC, pero cuando tecleo la 



instrucción WID' 
error. ¿A qué se 

Félix Avellaneda (Gijón) 



i 80 me da 
be esto? 



Lo que sucede es muy lógico. 
Tanto uno como otro sistema 
operativo están preparados para 
trabajar en 80 columnas, mien- 
tras que el BA SIC de la primera 



CONTROL DEL CASSETTE 




¿Pueden utilizarse las ins- 
trucciones INP y OUT para 
mandar o leer caracteres del 
cassette? ¿Qué dirección de 
port utiliza el cassette? 

Antonio Rodo 
(Sabadell) 

Efectivamente. El cassette está 
directamente conectado a dos de 
los chips controlables desde los di- 
ferentes ports. Estos dos chips son 
el PSG (encargado de la genera- 
ción de sonidos, la lectura del 
cassette y el control de los joys- 
ticks). La lectura del cassette pue- 
de hacerse controlando el sépti- 
mo bit del port A del PSG. Para 
leer este bit en particular debe- 
rás hacer: 

OUT 160,14:X=INP(162) 
AND 128 

El valor de la variable X será 
128 si en ese momento el casset- 
te enviaba un dato y si no lo 
hacía. 

La escritura en el cassette está 
controlada por otro chip, el PPI, 
siendo esta vez el bit 5 del port 
C del PPI el que hemos de mo- 
dificar para generar una señal 
sobre la cinta. Para poner este bit 
a 1 (grabación) haríamos: 
OUT 170JNP (170) AND 
223 



Por último, para encender y 
parar el motor del cassette utili- 
zamos el BIT 4 del mismo port 
C del PPI. 

Para poner el cassette en mar- 
cha tenemos que poner a este 
bit mediante la instrucción: 
OUT 170, INP(170) AND 
239 

y para parar el cassette debe- 
mos poner a 1 el bit con 
OUT 170, INP(170) OR 16 
Después de todo esto supongo 
que sabrás enviar o recibir BITS 
del cassette. Sin embargo, y esta 
es una mala noticia, la velocidad 
del trabajo del cassette (1200 bits 
por segundo en la velocidad mas 
lenta) rebasa en mucho la de tra- 
bajo del BASIC, por lo que te 
será imposible llegar a leer pro-^ 
gramas mediante comandos. Sí 
lo conseguirás si lo intentas en 
ensamblador; pero te advierto 
que los protocolos de comunica- 
ción sobre cassette, siendo de los 
más sencillos son de una extre- 
mada complejidad para el pro- 
fano en la materia. 

Te recomiendo, eso sí, que 
practiques con estas líneas en 
BASIC que he comentado, ya 
que puedes generar efectos muy 
interesantes. Esperamos tus des- 



uvnnnem 



ipo. 



generación no contempla esta 
posibilidad. Cuando se carga un 
sistema operativo en disco, se 
reorganiza la memoria ROM 
del ordenador, situándose cada 
sistema operativo en un área di- 
ferente de la memoria. Esto de- 
semboca en que resulta imposi- 
ble acceder a los comandos de 
estos sistemas operativos desde 
BASIC, así como también resul- 
ta imposible realizar el procedi- 
miento a la inversa. 



Recientemente he comprado 
una unidad de disco SONY pa- 
ra mi ordenador y me he en- 
contrado con que los diskettes 
en teoría son de 512 K pero 
formateados quedan en 360. 
He intentado utilizar los discos 
sin formatear para disponer de 
más capacidad de almacena- 
miento, pero cuando lo he in- 
tentado me ha dado error, así 
que he tenido que formatear- 
los. ¿Es esto normal? 

Antonio Mohedano 
(Andújar) 

Efectivamente es lo más normal 
del mundo. La operación de for- 
mateado del disco no es otra co- 
sa que una partición en pistas y 
sectores que efectúa el sistema 
operativo del disco para poder 
saber en cualquier momento 
dónde tiene almacenada la in- 
formación. Por ello, una parte 
importante de la capacidad del 
diskette se emplea en esta opera- 
ción puesto que el sistema opera- 
tivo, además de la división que 
hemos mencionado también ne- 
cesita crear un índice (directorio) 
y una serie de divisiones inter- 
nas para poder acceder sin pér- 
dida de tiempo a la información 
requerida. 

IMPORTACION PARALELA 

Hace poco me compré un or- 
denador CANON V20 MSX, 
pero cual no sería mi sorpresa 
al darme cuenta de que el ma- 
nual de instrucciones y el de 
BASIC venían ambos en in- 
glés. Considero que es un de- 
talle de muy mal gusto comer- 
cializar en España un aparato 
con el manual en un idioma ex- 



tranjero. ¿Es posible encontrar 
una versión en castellano? 

Lucio Puértolas (Algeciras) 

No eches la culpa de que el ma- 
nual no venga traducido al dis- 
tribuidor oficial de CANON. 
Lo que sucede, es que posible- 
mente tu ordenador no ¡ 
ga del importador oficial (que te 
garantizamos que se suministra 
con un completísimo manual en 
castellano) sino de un importa- 
dor paralelo, con lo que no sólo 
te vas a encontrar con ese pro- 
blema, puesto que lógicamente 
no podrás reclamar al distribui- 
dor oficial. 



CORRECCIONES A PHANTOM 

Sascha Ylla-Kónneke, autor 

del proerama PHANTOM 

aparecido en el n.° 19 de 

MSX-CLUB nos remitió las 

siguientes correcciones al 

mismo: 

4310 IF CE=1 

AND STRIG(Z)=-1 THEN 

GOSUB 4400 

720 CLS: LOCATE 10,10: 
PRINT "PLAYER 1 
READY": FOR 1 = to 1000: 
NEXT 

730 ON STOP GOSUB 
5430: STOP ON 
740 GOTO 920 




LENGUAJES HSX 




Hemos recibido numerosas versiones de este lenguaje se en- 
canas preguntándonos sobre cuentran en nuestro mercado: 
los diferentes lenguajes de pro- Nevada COBOL (Dynadata y 
gramación que se pueden uti- SVIJyCOBOL (Sony). Sus pre- 
lizar sobre los MSX. cios, entre 9.900 y 35.000 Ptas. 

Vamos a intentar responder — C: Este lenguaje, que se está 

a todas vuestras dudas sobre «poniendo de moda» entre los 

este tema, incluyendo una lis- programadores profesionales 

ta de todos los lenguajes del combina la simplicidad con una 

MSX. elevadísima velocidad. Los siste- 

Como todos sabéis el lengua- mas operativos de los modernos 
je propio del MSX es el BASIC ordenadores (el equivalente a la 
MSX; pero mediante progra- ROM BIOS del MSX) se progra- 
mas en cinta, disco o cartucho, man en C. De nuevo encontra- 
podemos utilizar un gran nú- mos dos versiones en el merca- 
mero de lenguajes. do español: C (lvesón) y BDS 

Estos son los diferentes len- lenguaje C(Sony). Sus precios es- 

guajes que se encuentran en el tan entre las 15.500 y las 

mercado español: 45.000 Ptas. 

-ENSAMBLADOR: £.x*5 — FORTH: Este lenguaje, 

ten numerosos ensambladores y que ganó bastante popularidad 

desensambladores que os permi- hace pocos años está distribuido 

tirán realizar todo tipo de pro- por SV1 España. Su precio es de 

gramas en este lenguaje. Los pre- 9. 800 Ptas. (la versión de casset- 

cios de estos programas oscilan te) y 10. 900 la versión de disco, 

entre 2. 400 y 1 5. 000 Ptas. -PILOT: Este lenguaje, poco 

—PASCAL y TURBO conocido por los profanos se en- 

PASCAL: Varias versiones de cuentra también entre lós utili- 

este popular lenguaje de progra- zables con un MSX. Su nombre, 

mación se encuentran en el rner- Pilot Nevada. Está distribuido 

cado. Citamos TURBO PA S- por S VI España y su precio es de 

CAL (Dynadata y SVI), 9.900 Ptas. (versión disco). 

PASCAL 80 (lvesón), PASCAL Estos son pues, todos los len- 

(Sony) y TURBO PASCAL guajes de programación utiliza- 

(Borland ITL). Sus precios osci- bles con vuestros MSX: pero su 

lan entre las 4.400 y las número aumenta rápidamente, 

35. 000 Ptas. y no creemos que tarden en apa- 

—LOGO: Este divertido len- recer versiones para MSX de 
guaje también se encuentra en el otros muchos lenguajes, 
mercado en diversas versiones. Para una mayor información 
Cabe citar LOGO (Idealogic), sobre este^tema os remitimos al 
MINILOGO y MSX LOGO ESPECIAL SOFTWARE de 
(Philips), oscilando sus precios en- nuestra revista, aparecido el pa- 
ire las 2.000 y las 12.500 Ptas. sado mes de Septiembre. En él 

—FORTRAN: Este lenguaje encontraréis, dentro del aparta- 
eminentemente matemático do de UTILIDADES y APLI- 
también tiene cabida dentro del CA CIONES un listado comple- 
mundo de los MSX. Citemos Ne- to de todas las versiones de los 
vada PORTRAN (Dynadata y diferentes lenguajes, corfsu pre- 
SVI) y FOR TRAN (Sony), cuyos ció y las empresas que los distri- 
precios se sitúan entre las 9. 900 ^ buyen, para que os sea fácil su lo- 
y las 35.000 Ptas. calización. 
' -COBOL: Dos diferentes 



GRABACION DE PROGRAMAS 
Y LISTADOS EN 
ENSAMBLADOR 

—¿Qué diferencia hay entre 
grabar un programa con 
SAVE a grabarlo con CSAVE? 
—¿Cuál es la instrucción para 
listar un programa en código 
máquina? 

J. Antonio Morales Asensio 
Lorca (Murcia) 

Tu primera pregunta tiene 
una respuesta que precisa cono- 
cer cómo se almacenan los pro- 
gramas en BASIC en la memo- 
ria del ordenador. Para ello te 
remito al número 23 de nuestra 
revista hermana MSX EXTRA, 
aparecido el pasado mes de Oc- 
tubre, que incluía un completo 
estudio de los tokens del BASIC. 



SF 



NTERPRETE BASIC 




En resumen te puedo decir que 
cada palabra del BASIC 
(PRINT, INPUT, IF, ...) se alma- 
cena en memoria como un có- 
digo numérico. Al hacer CSA- 
VE lo que se graban en la cinta 
son estos códigos de las instruc- 
ciones, es decir, el programa co- 
dificado, mientras que si grabas 
el programa con SA VE éste se 
graba carácter a carácter. Esto 
hace que la grabación sea sensi- 
blemente más lenta; pero permi- 
te otras muchas ventajas. Un 
programa grabado en A SCII (es 
decir, carácter a carácter) puede 
ser fundido con otros (mediante 
la instrucción MERGE) o ejecu- 
tado directamente, haciendo 
RUN «cas:...» si sustituyes los 

i t ii 

pun. 



ma grabado en la cinta en for- 
mato ASCII. 

Tu segunda pregunta tiene 
una respuesta aún más sencilla. 
No hay ninguna instrucción que 
permita listar programas en en- 
samblador. Para ello precisas de 
un programa especial, encarga- 
do de este proceso, llamado DE- 
SENSAMBLADOR. 



MAYUSCULAS Y MINUSCULAS 

¿Cómo se puede hacer que la 
tecla de CAPS SHIFT se en- 
cienda y apague mediante un 
programa? 

José Manuel Cereijo 
La Coruña 



El LED que nos indica el esta- 
do de la tecla CAPS LOCK está 
controlado por el puerto C del 
chip PPI (el Intel 8255A). El sex- 
to bit de este puerto indica el es- 
tado del LED: 0= ENCENDI- 
DO; 1= APAGADO. 

En la mayoría de los ordena- 
dores MSX el puerto C del PPI 
se encuentra en el port 170 
(&HAA en hexadecimal). Para 
encender el LED no hay más que 
poner a cero ese bit determina- 
do. Para ello, utilizando el BA- 
SIC haríamos: OUT 170, INP 
(170) AND 191 (para entender 
enteramente esta línea deberías 
conocer lo que es una máscara 
binaria y otros aspectos que no 
nos es posible detallar en esta sec- 
ción.) 

Para apagar el LED haríamos 
OUT 170, INP (170) OR 64. 

Si lo quieres apagar o encender 
indistintamente puedes utilizar 
la línea OUT 170, INP (170) 
XOR 64. 

Si programas en ensamblador 
puedes utilizar la rutina situa- 
da en la dirección &H132 de la 
ROM del BASIC Para ello en- 
samblarías las siguientes líneas. 
LD A,l 
CALL 0132H 
RET para apagar el LED y 
LD A,0 
CALL 0132H 
RET para encenderlo. 

Si lo que quieres es cambiar de 
modo minúsculas a mayúsculas 
o viceversa sin que se tenga que 
apretar la tecla CAPS SHIFT 
puedes hacerlo con: 
POKE &HFCAB,255 para 
pasar a mayúsculas y 
POKE &HFCAB,0 para pa- 
sar a minúsculas. 




Línea directa 



SISTEMA OPERATIVO 

Tengo un HIT-BIT 75 P y qui- 
siera saber si mi ordenador dis- 
pone de sistema operativo. 
También tengo entendido de 
que a mi ordenador se le pue- 
de ampliar la memoria con una 
BEE CARD ¿se comercializan 
en España? 

Juan Navas (Guipúzcoa) 



Naturalmente, tu ordenador, co- 
mo todos, dispone de un sistema 
operativo puesto que si no, no 
podrías hacer nada con él. En 
cuanto a las BEE CARD, efecti- 
vamente existe una versión que 
permite ampliar la memoria de 
tu ordenador hasta 256 K, pero 
desgraciadamente no se comer- 
cializa por el momento en Es- 
paña. 




AMSTRAD 



¿Qué ventajas y desventajas 
hay entre los MSX y los AMS- 
TRAD?, ya que sólo dicen que 
los MSX xon mejores que los 
SPECTRUM y los COMMO- 



ESPECIAL SOFTWARE 

PRECISIONES / CORRECCIONES 



En nuestro número ESPE- 
CIAL SOFTWARE por un 
error de información apareció 
un precio incorrecto en el soft- 
ware de la casa SERM A. Di- 
chos precios de venta al públi- 
co son los siguientes: 

BOXEO Crt. 5.200 

CIRCUS CHARLIE 

Crt. 5.200 

COMIC BAKERY 

Crt. 5.200 




FUTBOL Crt. 5.200 

HYPER RALLY Crt. 5.200 

HYPER SPORT I 

Crt. 5.200 

HYPER SPORT II 

Crt. 5.200 

HYPER SPORT III 

Crt. 5.200 

JET SET WILLY 

Tarj. 5.100 

KONAMI'S GOLF 

Crt. 5.200 

KONAMI'S TENNIS 

Crt. 5.200 

LEMANSTarj. 5.100 

PING PONG Crt. 5.200 

ROAD FIGHTER 

Crt. 5.200 

SAMANTHA FOX 

Cass. 1-900 

SKY JAGUAR Crt. 5.200 

STAR FORCE Tarj. 5.100 

SUPER COBRA Crt. 5.200 

TIME PILOT Crt. 5.200 

YIE AR KUNG FU 

Crt. 5.200 

YIE AR KUNG FU II 

Crt. 5.200 

QUINIELA FUTBOL 

Tarj. 8.800 

QUINIELA HIPICA 

Tarj. 8.800 



DORE, pero de los AMS- 
TRAD ni palabra, ¿Es que aca- 
so son mejores que los MSX de 
la primera generación. 



No te precipites. En este mismo 
número incluimos un análisis 
comparativo entre MSX y AMS- 
TRAD para que no digas. 



RGB 



Les escribo para preguntarles 
que tipo de trabajos, con video, 
puede realizar la salida analó- 
gica RGB y qué ordenadores 
MSX tienen dicha salida. 

Jesús Corrales Ruiz. Erendio 

m 



La salida RGB es una salida de 
video compuesto que sirve para 
grabar imágenes sobre cinta de 
video. Las iniciales RGB corres- 
ponden a los nombres de los co- 
lores básicos utilizados por los 
aparatos de televisión en inglés; 
es decir Red, Green and Blue; es 
decir Rojo, Verde y Azul. 
Todos los ordenadores MSX de 
la segunda generación llevan in- 
corporada esta salida, y algunos 
de la primera como pueden ser 
el HIT-BIT 75P de SONY o el 
Pioneer. 



DISCOVERY INFORMATE 

La casa Discovery Informatic 
está domiciliada en la calle 
Arco Iris, 75 - 08032 Barcelo- 
na y su teléfono es el 
V93) 256 49 08/09. 



VAMPERE. Ayuda al audaz Guillermo a salir 
del castillo del Vampiro, sorteando murcié- 
lagos, fantasmas, etc. Un Juego terrorífica- 
mente entretenido para que lo pases de mie- 
do. PVP. 800 Pts. 



NUEVO 



POR JOAQUIN LOPEZ 

Mnnu% por ventana* txe* 
ir mato» (Ir copla* ilrnubtion 
an Blanco y nafro copla 
•prlln» reanime colore* 
compatible con cualquier 
tmpreaora matrlctaj 



CON GARANTIA 

i/lANH/TO\l TRANSFEPSA 



HARD CCPY. Para copiar pantallas. Tres 
formatos de copias, simulación por blanco y 
negro, copia sprites, redefinlc. de colores, 
compatible con todas las impresoras ma- 
tric. PVP. 2.500 Pts. 





msxclub 




QUINIELAS 



KKYPTON. La batalla mas audaz de las gala- 
xias en cuatro pantallas y cuatro niveles de 
dificultad. Un juego cuya popularidad es cada 
vez mas grande entre los usuarios del MSX. 
PVP. 500 Ptas. 



Ü-BOOT, Sensacional Juego de simulación 
submarina en la que tienes que demostrar tu 
pericia como capitán de un poderoso subma- 
rino de guerra. Panel de mandos, sonar, tor- 
pedos, etc. PVP 700 Ptas. 



CON GARANTIA 



QUINIELAS. El mas completo programa de 
quinielas con estadística de la liga, de los 
aciertos, etc. e impresión de boletos. Acertar 
no siempre es cuestión de suerte. PVP. 700 
Ptas. 




EL SECRETO DE LA PIRAMIDE. Atrevido 
juego de aventuras a través de los misterios 
y peligros que encierran los laberínticos pa- 
sillos de una pirámide egipcia. ¡Atrévete sí 
puedes! PVP. 700 Ptas. 



STAR RÜNNER. Conviértete en el audaz 
piloto interestelar y lucha a muerte, a 
través del hiperespacio, contra las defen- 
sas del tirano Daurus. Dos pantallas y 
cinco niveles de dificultad PVP. 1.000 pts. 



FLOPPY, El Preguntón Un verdadero desafio 
a tus conocimientos de Geografía e Historia 
española. Floppy no perdona y te costara 
mucho superarla PVP. 1 .000 Ptas. 




SNAKE. Entretenido y muy divertido juego 
en el que Snake procura comer unos núme- 
ros que la engordan. Tanto las murallas que 
la rodean como su larga cola pueden ser 
mortales para ella. PVP 600 Ptas. 




p CdN GARANTIA 

m TRANSFÜ?SA 



MAD FOX. Un héroe solitario es lanzado a 
una carrera a vida o muerte por un desierto 
plagado de peligros. Conseguir el combusti- 
ble para sobrevivir es su i 
de dificultad. PVP 1000 pts 



Si guiares recibir por correo certificado estas cassettes garantizadas recorta o copia este boletín y envíalo hoy mismo: 




□ KRYPTON Ptas. 500- 

□ ÜBOOT Ptas. 700- 

□ QUINIELAS Ptas. 700- 

□ HARDCOPY Ptas^WO- 



□ SNAKE Ptas. 600- 

□ EL SECRETO DE LA PIRAMIDE Ptas. 700- 

□ STARRUNNER Ptas. 1.000- 



□ FLOPPY PVP. 1.000 Ptas. 

□ MAD FOX PVP. 1.000 Ptas. 

□ VAMPIRO PVP. 800 Ptas 



pastos de envió certificado por cada cassette 



Ptas. 70,- Remito talón bancario de Ptas a la orden de Manhattan Transfer, S A. 



ATENCION: Los suscriptores tienen un descuento del 10% sobre el precio de cada cassette. 
IMPORTANTE; Indicar en el sobre MSX CLUB DE CASSETTES. ROCA I BATLLE, 10-12 BAJOS. 08023 BARCELONA 



Para evitar demoras en la entrega es imprescto 



üostal. 



NUESTRAS CASSETTES NO SE VENDEN EN QUIOSCOS. LA UNICA FORMA DE ADQUIRIRLAS ES SOLICITANDOLAS 

A MJESTRA REDACCION. ¡NO SE ADMITE CONTRA REEMBOLSO! 



Tablón de anuncios i 



i 




3140 IF PR=0 THEN DI*=C*? 
E< (X2*16>-4, 



Esta sección de MSX CLUB es de nuestros lectores. Todos ellos tienen derecho a dos inserciones totalmente gratuitas. Las carac- 
terísticas de esta sección no permiten la inclusión de anuncios con fines de lucro. Advertimos que la desprotección y copia de 
software original es un acto delictivo perseguido por la ley. 



A LOS 

ANUNCIANTES 
DE ESTA 
SECCION 
Insistimos. El objetivo 
de esta sección es el de 
comunicar a nuestros 
lectores entre sí, pero 
no hacer publicidad me- 
tódica y gratuita de 
quienes se valen de la 
buena fe de esta redac- 
ción. A raíz de nume- 
rosas cartas recibidas 
denunciando un co- 
mercio subterráneo de 
cintas de juego copia- 
das ¡legalmente, nos ve- 
mos obligados a no pu- 
blicar aquellos anun- 
cios que no especifiquen 
claramente qué se ofre- 
ce y qué se requiere pa- 
ra efectuar los inter- 
cambios. 







Cambio cartucho ampliación de 
16K de Sony y cartucho de juego 
Z«Konami's Soccer, por cartucho 
de ampliación de 64 K, preferible 
de Sony. Alberto Alaiz Casas. 
Avda. José Quintana, s/n. Sadaña 
- 34100 PALENCIA - Tel. 
(988) 89 01 91. CP1. 
Contacto con poseedor de impre- 
sora para realizar listados. Pagaré. 
Anna Vilaseca. C/. Vell, n? 24. 
Santa Creu de Joglars - 08519 



BARCELONA - Tel. 888 00 12. 
CP1. 

Cambio tres programas en cartu- 
cho (Flight Path 737, Super Soc- 
cer y Super Cobra, y dos en cinta 
(Ghost Busters y B.C. Grogs), ade- 
más de un Quickshot 1 1 por Map 
de Mitsubishi o Logo Philips. Ca- 
yetano Andreu Laurindo. C/. 
Ocaña, n? 5. El Ejido - 04700 AL- 
MERIA. CP1. 

Intercambio juegos. Poseo entre 
otros: King Lore, Gungfrit, Zax- 
xon. David Pacheco Díaz. C/. 
Fray Pedro Vives, n? 17, pta. 5 - 
Tel. (96) 365 57 77. CPl. 
Intercambio programas, mapas y 
poques de juegos sin fin económi- 
co. Enviar lista. Pedro Luis Mu- 
ñoz Rosa. C/. Jubilados y Pensio- 
nistas, n? 3. Montilla - 
CORDOBA. CPl. 
Vendo Philips VG-8020 (80K), 
menos de un año, completo. 5 cin- 
tas originales y otra con 10 juegos. 
Todo por 40.000 ptas. Pedro Pé- 
rez. C/. Ant. Machado, 19, 8?. El- 
che - ALICANTE. CPl. 
Vendo Spectravideo SVQ-328 
80K, cassette SV 1-904, Quick Shot 
1, 12 cintas de gestión y juegos, 
fuente alimentación y manual cas- 
tellano, 37.000 Ptas. Cristóbal 
García Rodríguez. Avda. Europa, 
n? 134, 4?, 1. a - Tel. (93) 336 63 32. 
Hospitalet de Llobregat. BARCE- 
LONA. CPl. 

Cambio más de 50 programas por 
un cartucho de ampliación de 64K. 
Fernando Alvarez Reguant. Avda. 
Sta. Bárbara, n? 41 - 08260 Suria. 
BARCELONA. CPl. 
Intercambio juegos MSX tales 
como «Panorama para matar» (1 ? 
y 2. a parte), Athletic Land, «Oh 
Shit», por otros. Claudio Vellve 



Espiga. C/. Gral. Mola, n? 29, 4?, 
drcha. BURGOS. Tel. 
(947) 26 67 94. 

Vendo ordenador Philips msx- 
VG 8000 con amplificador de me- 
moria de 16 K el (poco uso). Re- 
galo más de 30 juegos comerciales 
y libros. Juan M. a Gorrotxategui. 
C/. Guipúzcoa, 15, 4? C - 20240 
Ordizia. GUIPUZCOA. Tel. 
(943) 88 54 74. 

Vendo Spectravideo SVI-328 con 
cassette, joystick Quickshot I, per- 
fecto estado, buen precio. Llamar 
al teléfono (926) 42 49 76 o escri- 
bir a C/. Hospital, n? 6, bajo A. 
Puertollano - CIUDAD REAL. 
CPl. 

Contacto usuarios o interesados 
que posean software para la trans- 
misión y recepción de CW- 
RTTY. Alejandro García. Avda. 
Hilario Ruiz, 46. 15621 Cabañas 
- LA CORUÑA. CPl. 
Compro a buen precio (de 5 a 
8.000 ptas.), ampliación de 64K. 
También vendo HB 16 de Sony, 
precio a convenir (entre 2 y 5.000 
ptas). Dispongo de juegos que 
cambio o vendo. Pedro García 
Caro. C/. Carlos III, n? 17, 4? B. 
30201 Cartagena - MURCIA. Tel. 
(968) 52 02 02. CPl. 
Vendo Sony-HBF-500P (MSXl 1), 
completo, nuevo, incluidos ma- 
nuales y sistema operativo 
(MSX 1 1-DISKETTE), sólo proxi- 
midades de mi población — 
130.000 Ptas.—. José Luis Baste- 
rretxea Barroso. C/. Iturribide, nP 
12, 2?, drcha. Betxo - BISKAIA. 
Tel. 469 43 63 (de 2 a 4). CPl. 
Contacto c/. Club MSX - 
aseguro respuesta—. Interesados 
escribir a José García Selgaz. C/. 
Niño Jesús, bloque 5, portal 3, ba- 



jos A. Arganda del Rey - MA- 
DRID. CPl. 

Vendo Karate, Space Walk, Labe- 
rinto 3 D y Les Flics por 700 Ptas. 
También un selector de antena y 
un curso de Basic —MSX en 
video—. Antonio Montero Batllé. 
Ciudad Cooperativa, 49, 5?, 2. a . 
Sant Boi - BARCELONA. Tel. 
652 16 94. CPl. 

Vendo HIT-BIT-75 SONY (ma- 
nuales conexiones Software origi- 
nal) y unidad de disco 3.5". Ofer- 
tas: José Búa. Aptdo. 78. Boiro - 
15931 LA CORUÑA. CPl. 
Contacto Club LSD PRINTER. 
Intercambio de software e infor- 
mación sobre sistema MSX. Todo 
sobre Hardware. Apdo. 2093. 
MURCA. CPl. 

Compro cartucho de ampliación 
de memoria Sony o cualquier otra 
marca, de ampliación a 64 K, por 
8.000 ptas. Rubén Parera Roura. 
Rambla, 12, 4?, 2. a . Mongat. Tel. 
384 40 49. CPl. 

Compro ampliación de 64K. Os- 
car Marina Saiz. C/. Andalucía, n? 
2, 3?. Tel. 490 00 19. Baracaldo - 
Bizkaia. CPl. 

Deseo conseguir ordenador, uni- 
dad de discos y demás periféricos 
MSX, nuevos o usados. Espero 
ofertas. A. Dávila. Apdo. 274. 
45600 Talavera - TOLEDO. CPl. 
Vendo Toshiba H X-10, cartucho 
Logo Philips y grabadora. Tam- 
bién programas, libros y revistas 
Todo a 45.000 ptas. Avda. Caste- 
lao, Bl. 112, 12? B. Vigo, 9. CPl. 
Vendo Spectravideo SVl 904, 
Joystyck Quickshot 11, libro de 
programación avanzada, juegos, 
cintas de Intro al Basic, 13 boleti- 
nes de Club ISIS, manuales en in- 
glés y castellano. Sólo 39.000 ptas. 





Txutxki. Tel. (94) 467 13 84. CPl. 
Compro cartucho ampliación de 
48 ó 64 K, precio a convenir. Luis 
Benedicto Qurol. C/. Campoa- 
mor, n? 45, 2?, 2. a . Hospitalet - 
BARNA. Tel. 335 05 70. CPl. 
Vendo cartucho Track & Field II 
por 3.900; juegos y programas edu- 
cativos a precios económicos. Es- 
cribir a Dimas Ramírez Juan. Pla- 
za de San Roque, n? 16-18, 6?, 2. a . 
Badalona - BARNA. Tel. 
398 15 40. CPl. 

Vendor ordenador MSX, HIT, 
BIT 101 con ampliación de memo- 
ria 64K por 27.000 ptas. Antonio. 
Tel. (93) 652 16 94. CPl. 
Cambio por otro juego o compro 
programas que simulen la sintonía 
de las películas de 007 James Bond. 
Miguel Borrego. C/. Abad Raci- 
mir, 11. Olot - Girona. CPl. 
Vendo Sony HB 75P de 80K, li- 
bros, programas comerciales por 
30.000 ptas. Venancio Bidasoro. 
C/. Harzubia, 9, 3?. Azpeitia - 
GUIPUZCOA. Tel. 81 25 06. 
CPl. 

Compro ampliación de 16 K o 64 
K por 4.000 ptas. más 60 juegos a 
cart., entre ellos: yier Ar Kunfu I 
y n, Trac & Field I y II, Atletic 
Land y Circus Charlie. Gonzalo 
Márquez Benitez. C/. Ntra. Sra. 
Merced, s/ n. (CP. Aljoxani) - Tel. 
25 83 48. CP2. 

Contacto con usuarios del MSX 
para formar un club. José C. de la 
Fuente. C/. Gran Capitán, 3-5, 2? 
drcha. SALAMANCA. CP2. 
Vendo Hit Bit HB-55P con am- 
pliación de memoria a 32K y 30 
juegos comerciales y manuales. 
Todo por 30.000. Luis Marcos Gi- 
ménez. C/. Diputación, n? 5, 8?. 
Silla - VALENCIA. Tel. 
(96) 120 21 58. CP2. 
Intercambio instrucciones de pro- 
gramas: juegos, gestión y educati- 
vos. Miguel A. M. Emaldi. C/. La- 
bairu, n? 11, 2?, izq. Baracaldo - 
48902 VIZCAYA. CP2. 
Vendo ordenador Sony HB 55 P 
en impecable estado, precio a con- 
venir. Juan Gómez. Tel. 
388 89 08. BARCELONA. CP2. 

Vendo 20 juegos MSX: Hiper 
Sports 1, Yie Ar Kung Fu 1, Night 
Shade, Elidor Soccer, etc., por sólo 
5.000 ptas. Juan Enrique Forcada. 
C/. La Carrera, n? 2, 5? - Burria- 
na. CASTELLON. CP2. 
Intercambio órgano Casio Tone 
MT-65 nuevo por ordenador 
MSX y también intercambio jue- 
gos. José Camboa. Tel. 
(93) 437 23 65. CP2. 
Cambio manuales (referencia y 
usuario) MSX y juegos por 
ampliación-monitor color 20 pulg. 
por unidad de disco o impresora. 
También intercambio juegos en 
cinta o cart. Luis Abillira. Rial, n? . 
4, 9? Poyo - PONTEVEDRA. 
CP2. 



Vendo 

8.000 con cassette computore pro- 
gramas originales, libros y revis- 
tas. Todo 24.000 ptas. Alfonso 
Montoya. Tel. 43 16 17. Albox - 
ALMERIA. CP2. 
Vendo ordenador Sony HB-55P 
con ampliación de memoria de 
16K cartucho de Road Fighter y 
60 juegos de cintas por 25.000 ptas. 
Juan Antonio Plaza Villar. C/. 
Santa María, 6. Tel. 
(953)776 00 05. Torreperogil - 
23320 JAEN. CP2. 
Cambio cartucho YIE AR 
KUNGFU II o 40 juegos origina- 
les por otro cartucho como BO- 
XING o HIPER RALLY. MA- 
NOLO. Tel. (954) 63 21 94. CP2. 
Vendo Data Recorder COMPU- 
TONE en buen estado, poco uso 
por 5.000 ptas. Tiene led indica- 
dor, save, contador de vuejtas, co- 
nector para micrófono, cascos y 
remote. También posee una entra- 
da estándar dim. Gonzalo Már- 
quez Benitez. C/. Ntra. Sra. Mer- 
ced, s/n. (Aljoxani). Tel. 25 83 48. 
CP2. 

Compro manual de Logo PHI- 
LIPS en cartucho. GUSTAVO 
CELA. C/. Poeta Cabanillas, n? 
10, 12 piso, 3?, izq. 27004 LUGO. 
Tel. 21 67 93. CP2. 
Vendo 60 interesantes juegos en 
cartucho más COPY (2 por 4.000) 
o bien los cambio por: cart. origi- 
nal (LOGO PHILIPS), can. de 
ampliación 16 ó 64K, 2 Joystick, 
cart. original (Champ) Micro 
Byte, Libro consejos y trucos de 
DATA BECKER. Gonzalo Már- 
quez Benitez. C/. Ntra. Sra. Mer- 
ced, s/n. (CP. Aljoxani). CP2. 
Vendo Mitsubishi 80K modelo 
ML-FK2 con 4 programas incor- 
porados en el ordenador Base de 
datos, Procesador de textos, Cál- 
culo electrónico, Creación de grá- 
ficos, con todo sus elementos y 
cinta de demostración. Regalo cas- 
sette de juegos de marca. Precio a 
convenir. Preguntar por Yon. Tel. 
(943) 39 63 36. San Sebastián. 
CP2. 

Cambio Mitsubishi MSX-Ml- 
FX1 con teclado numérico 80K 
RAm, con todos los elementos y 
16 juegos comerciales, más joys- 
tick mas Data-cassette por un PHI- 
LIPS, o por un HIT-BIT, o bien 
por un DIÑAD ATA que tenga la 
misma memoria. Roberto López 
Rodríguez. C/. Juan XXIII, n? 1. 
27500 Chantada - LUGO. Tel. 
(982) 44 00 10. CP2. 
Cambio (DIP METER LEADER 
LDM 815) por Spectrum 48K. Re- 
galaría ordenador Ohio Scientific 
CPU 6502. - Luis. Apart. 111-Es- 
parraguera CP 08080. CP2. 
Vendo cartucho Soccer por 3.000 
ptas. Floren González Fuentes. 
C/ Alto Alday. N? 1-4? Izqda. 
48500. San 
kaia). CP2. 




¡Haz saltar la pulga hasta 
lo más alto y podras ganar 
hasta 125.000 pts. en pre- 
mios! 

MSX CLUB DE PRO- 
GRAMAS y MIND GA- 
MES ESPAÑA, S.A. te des- 
afían a que juegues con Boo- 
ga Boo y ganes. Booga Boo 
es una simpática pulga salta- 
rina que cierto día cae a las 
profundidades de una cueva 
habitada por un peligroso 
dragón y plantas carnívoras. 
Tú, no solo tienes que sor- 
tear estos obstáculos, sino 
llevar a Booga Boo a la su- 
perhcie superando los 80 ni- 
veles de que consta el juego 
y logrando la máxima pun- 
tuación. ¿Te animas? 

Bases 

1. Para participar remítenos: 

a) Una fotografía de la últi- 
ma pantalla de Booga Boo. 

b) Una fotografía del ta- 
blero de puntuación con tu 
nombre en el primer lugar. 

c) Al dorso de ambas fotos 
coloca tu nombre, direc- 
ción, teléfono y el número 
de referencia de Mind Ga- 
mes España, S.A., editor 
autorizado de Booga Boo 
en versión MSX para Es- 
paña, que figura en la cará- 
tula original. 

2. El ganador será el que 
obtenga mavor puntuación. 

3. En caso de naber más de un 
concursante con la máxima 
puntuación, el ganador se 
sorteará entre ellos. 

4. El premio al ganador con- 
sistirá en 125.000 pts. en 
software de Mind Games 
España S.A. y material di- 
dáctico de informática MSX. 



5. Todos los concursantes re- 
cibirán un regalo por su 
participación. 

6. El concurso caduca el día 
30 de noviembre de 1986. 

7. Quedan excluidos de parti- 
cipar en este concurso los 
empleados, agentes y fami- 
liares de los mismos de Quick- 
silva Ltd., Argus Specialist 
Publications, Alabaster Pass- 
more & Sons, Mind Games 
España, S.A., Ivex Films, 
S.A. y Manhattan Transfer, 
S.A. 

8. La participación implica la 
aceptación de las presentes 
reglas. 

9. Las decisiones de MSX 
CLUB DE PROGRAMAS 
serán inapelables y no se 
mantendrá corresponden- 
cia con los concursantes. 

10. Remite el sobre a: 

MSX CLUB DE 
PROGRAMAS 
CONCURSO 
BOOGA BOO 
Roca i Batlle 10-12 
Barcelona 08023 



¡¡GANA 125.000 pts.!! 















. 
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MSX BASIC PLUS (II) 



INFORMACION 
TECNICA 



Por Willy Miragall, 



Vamos a continuación a profun- 
dizar en el funcionamiento de la 
ampliación del BASIC de la que 
hemos estado tratando. 




En primer lugar recordaremos some- 
ramente los contenidos y funciones 
de las tablas del VDP. Como sabéis 
por otros artículos aparecidos en esta re- 
vista, la pantalla está controlada por un 
chip especializado, el VDP (Video Dis- 
play Processor). Este chip tiene una zona 
de memoria RAM propia, separada de la 
RAM normal del usuario. Esta zona es la 
que llamamos VRAM o RAM de video. 
Él chip, para controlar los 16 Kb de 
VRAM con que cuenta utiliza unos regis- 
tros que, simplificándolo mucho, pode- 
mos decir que son como variables propias 
a cada chip. Según estos registros se orde- 
na la VRAM en diferentes zonas. 

Observad la tabla 1; en ella se muestra 
la configuración de la VRAM en 
SCREEN 0, tanto en BASIC normal, 
como en el BASIC ampliado. Para la ges- 
tión de la pantalla de textos, el VDP pre- 
cisa de dos zonas bien diferenciadas. Una 
es la TNP, tabla de los números de los pa- 
trones. Es esta tabla la que utiliza el VDP 
para saber qué es lo que hay en la panta- 
lla. Una secuencia de números en esta ta- 
bla corresponde a una secuencia de carac- 
teres en la pantalla. La otra tabla es la 
TGP, tabla generadora de los patrones. 
Los patrones, o caracteres, son cada una 
de las letras que aparecen en la pantalla. 
Vamos a seguir el proceso paso a paso. 

Cuando en la TNP el VDP (no os liéis 
con tantas siglas) encuentra un 65 (código 
de la 'A'), busca en la TGP cuál es la for- 
ma de ese carácter. En la TGP se encuen- 
tra el dibujo en binario del carácter que 
debe aparecer en la pantalla. Si modifica- 
mos la TGP los caracteres cambian de for- 
ma, mientras que si modificamos la TNP 
cambiamos los textos que hay en la pan- 
talla. Es precisamente esto último lo que 
hace el ordenador para imprimir un tex- 
to en la pantalla. 

Con la instrucción — USO(x), lo que ha- 
cemos es modificar la palabra (conjunto 
de 2 bytes) situada en la dirección # F922, 
que contiene la dirección de la VRAM 
donde está la TNP. Al cambiar esta direc- 
ción el ordenador cree que la TNP cam- 
bia de posición, por lo que desvía sus tex- 
tos a esa nueva dirección. Aunque estemos 
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viendo una pantalla, el ordenador escribirá 
en otra distinta. 

En cambio, con la instrucción- VEO(x), 
lo que hacemos es modificar uno de los 
registros del VDP, con lo que aparecerán 
ante nuestros ojos los caracteres almace- 
nados en otra zona de memoria. 

En el BASIC PLUS, redistribuimos las 
tablas del VDP, con lo que conseguimos 
aprovechar al máximo la memoria dispo- 
nible. 

Tal vez encontréis la explicación hasta 
ahora un poco complicada; pero os que- 
dará mucho más clara si consultáis algún 
artículo dedicado a las tablas del VDP o 
cualquier libro especializado en el MSX. 

El proceso seguido en el SCREEN 1 es 
idéntico; pero debemos contar con precau- 
ciones adicionales. Aquí entran en juego 
tres nuevas tablas a las que debemos reser- 
var un espacio: la tabla de color, que con- 
tiene los códigos de color de los caracte- 
res, la tabla generadora de los sprites (con 
su diseño en binario) y la tabla de atribu- 
tos de los sprites, con datos sobre posición, 
ce ' 



En SCREEN 2 el proceso seguido es 
bien diferente. Si observáis cualquier ma- 
nual del MSX en que aparezcan las tablas 
del VDP observaréis que en SCREEN 2 no 
quedan más que 128 bytes libres. Si pen- 
samos que una pantalla gráfica requiere, 
como mínimo 12 Kb, resulta problemá- 
tica la instalación de una segunda panta- 
lla de gráficos. 

Hemos creído interesante incluir una 
pantalla de texto en SCREEN 2, de for- 
ma que podamos poner un texto de pre- 
sentación mientras se realizan los dibujos 
para luego pasar instantáneamente a la 
pantalla de gráficos. 

Para ello lo que hacemos es pasar de 
SCREEN 2 a SCREEN sin borrar los 
contenidos de la VRAM (no como hace 
el BASIC normal), por lo que podemos 
mantener ambas pantallas simultáneamen- 
te. Este cambio de SCREEN se consigue 
con una sencilla rutina en ensamblador 

3ue modifica los registros del VDP (po- 
éis incluso hacerla en BASIC si domináis 
la función VDP). 



hacer que el BASIC admitiese o anulase 
las instrucciones gráficas (LINE, DRA W, 
PSET,...) dependiendo de la pantalla que 
usemos. Recordad que seguimos en 
SCREEN 2 aunque veamos una pantalla 
de texto, ya que hemos modificado los re- 
gistros del VDP sin indicarle nada al BA- 
SIC, que ignora los cambios realizados. 

Este problema lo solucionamos fácil- 
mente pokeando en la dirección # FCAF, 
que contiene el modo de pantalla. Probad- 
lo vosotros. Si hacéis: 
10 SCREEN 
20 POKE &HFCAF, 2 
30 LINE (100,100)-(150,150), 15, BF 
40 POKE &HFCAF,0 
50 END 

¿Que no pasa nada? No a simple vista. 
Al decirle al ordenador que estamos en 
SCREEN 2 (aunque realmente seguimos 
en SCREEN 0), permite que realicemos 
el dibujo. Si pudiésemos pasar a SCREEN 
2 sin borrar la pantalla, podríamos ver el 
dibujo realizado. Es esto, y poco más, lo 
que realizan los comandos _USO(x) y 



LISTADO DE PROGRAMA, 
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26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 



XVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVY 

V *** MSX BASIC PLUS v. 1. 1 *** V 
TVVVWWVVVVVWVWVVWWVVWVVWVVVWS 

V Comandos: _USO(x) y VEO<x> V 
V 



Realizado por V. Mlragall 
2-Sept-1986 

<c> V. Mlragall y MSX CLUB 



z ww wvvwvvwv vvv wvvvvwvvv vwvc 



*** CARGADOR DEL ENSAMBLADOR *** 



FOR X=&HED00 TO 4HF015 
READ A* 

POKE X, VAL<"&H"+AS> 
NEXT X 



1 *** GRABACION DEL PROGRAMA **X 



SCREEN 0: KEY OFF: VIDTH 40 

PRINT "Pulse PLAY & RECORD en el cassette' 

PRINT "y ENTER para comenzar a grabar..."; 

A*=IHPUT»<1 > 

IF ASOCHR*<13> THEN 43 

BSAVE "CAS: PLUS" , S.HED00, «HF015 



*** SALTO AL BASIC PLUS *** 



CLS: DEF USR=*HED00 : A=USR <0 ) 

• XVWVWVWVWVWWVVWVWVVWVWWWVY 

' V V 

' V = DATAS DEL ENSAMBLADOR ■ V 

• v = — V 

• V V 



61 DATA F3, DB. A8, 32. 15. F0, E6. F3 

62 DATA 47.E6.30.CB,3F.CB,3F.B0 

63 DATA 32, 14, F0, D3, A8.21. 23. ED 

64 DATA 11,0, 40, 1, 10, 0, ED, B0 

65 DATA C3, 0, 0, 41 . 42. 61. EF. 33 
G6 DATA ED, 0,0, 0,0, 0,0,0 

67 DATA 0,0,0,E5.21,59,BF. 11 

68 'DATA 89, FD, 1A, BE, 20, 7, 23, 13 

69 DATA B7.28, 16, 18.F5,21,5D, EF 

70 DATA 1 1 , 89, FD, 1A. BE, 20, 7, 23 

71 DATA 13, B7, 28. IB. 18, F5, El, 37 

72 DATA C9, 21,71, ED, 3A, B0, FC, 3C 

73 DATA FE, 3, 28. 4, 3A, AF, FC, 3C 

74 DATA 47, 23, 23, 23, 10, FB. E9, 21 

75 DATA 7D.BD, 18.B8,C3.9C,BD,C3 

76 DATA C4, ED. C3. 44, EE. C3. 66, EB 

77 DATA C3. 8C. ED, C3, B4, ED, C3. DC 

78 DATA ED. C3, 66, EE, El, CD, AC. EB 

79 DATA CD, C2. EE. CB, 27. CB, 27. 32 

80 DATA 23, F9. A7 . C9. El. CD. AC. EB 

81 DATA CD.C2,BE,47,E,2,F5,CD 

82 DATA 47,0,F1,CB,27,CB, 27,32 

83 DATA B4, F3, A7, C9, El. CD, AC. EE 

84 DATA CD, CF, BE, CB, 27, CB, 27, 32 

85 DATA 23, P9. A7.C9, El.CD, AC.BE 

86 DATA CD,CF,BE,47.E,2,F5,CD 

87 DATA 47,0,F1,CB,27,CB,27,32 

88 DATA BE, F3, A7, C9, El. CD. AC, EE 

89 DATA 22, BC, BF, B7, 28, 39, 3D, 28 

90 DATA 5. 1E,5,C3.6F.40,AF,32 

91 DATA AF, PC. 3E, 2. 32. B0, FC, 3E 

92 DATA 1C, 32. 23, F9, CD. 4D. EF. 21 

93 DATA 0,48, 11,0, 1C, 1.C0.3 

94 DATA CD ,50,0,21, BF, IB, 11,0 

95 DATA 38, 1, 0, 8, CD, 5C. 0, CD 

96 DATA 53,BP,2A,BC,EF,A7,C9.3E 

97 DATA 2.32,AF.FC,AF.32.B0.FC 

98 DATA 3E, 8, 32, 23, F9, CD, 4D, EF 

99 DATA 21,0, 1C, 11,0,48, 1.C0 

100 DATA 3, CD. 59, 0, CD, 53, BF, 2A 

101 DATA BC. EF, A7, C9, El, CD, AC. EE 

102 DATA 22, BC, BF, B7, 28, 8. 3D, 28 

103 DATA D, 1E, 5, C3 , 6F, 40, CD, 24 

104 DATA EF. 2A, BC, EF, A7.C9, CD. DC 

105 DATA EE.2A.BC.EF.A7.C9.B1.CD 

106 DATA AC.EB, 1E, 5. FE, 8. P2. 6F 

107 DATA 40,22, BC, BF, F5. CD, 4D, EF 

108 DATA 3A, BE. EF. CD. A0. EB, EB, 21 
~ DATA 0.0. 1.0.6. < 



110 


DATA 


111 


DATA 


112 


DATA 


113 


DATA 


114 


DATA 


115 


DATA 


116 


DATA 


117 


DATA 


116 


DATA 


119 


DATA 


120 


DATA 


121 


DATA 


122 


DATA 


123 


DATA 


124 


DATA 


125 


DATA 


126 


DATA 


127 


DATA 


128 


DATA 


129 


DATA 


130 


DATA 


131 


DATA 


132 


DATA 


133 


DATA 


134 


DATA 


135 


DATA 


136 


DATA 


137 


DATA 


138 


DATA 


139 


DATA 


140 


DATA 


141 


DATA 


142 


DATA 


143 


DATA 


144 


DATA 


145 


DATA 


146 


DATA 


147 


DATA 


148 


DATA 


149 


DATA 


150 


DATA 


151 


DATA 


152 


DATA 


153 


DATA 


154 


DATA 


155 


DATA 


156 


DATA 


157 


DATA 


158 


DATA 



F1,32,BB,EF,C», A0.EE, 11 

0. 0.1.0.6, CD, 5C, 

CD, 53, EF. 2A. BC. EF. A7, C9 
3C, 47, 3E, 4A, C6, 6. 10, FC 
67, 2E, 0, C9, DD, Bl. 3E. 28 
BB,C2,55, 40.23,CD, 1C.52 
3E, 29, BE. C2, 55. 40, 23, 7B 
DD, E9. DD. Bl, 1E.5, FB, B 
F2. 6P, 40, 3C, 3C, DD, E9, DD 
El, IB, 5, FE, B, F2, 6P. 40 
C6. 5. DD, E9, DD, 21. DF, P3 
DD. 46, 1, CB, E0, CB. 98, E 

1, CD, 47, 0, DD. 46. 0, CB 
88, E, 0, CD, 47, 0, 3A, E9 
F3,CB,27,CB,27.CB,27,CB 
27,21. BA.F3. 86,47, E, 7 
CD,47.0,3E, 1C,32,B4,F3 
3B,38,32,B8,F3.6.7,B 

2, CD, 47, 0, 6, 7, E, 4 

CD. 47, 0, C9, DD, 21. DF, P3 

DD.46, l.CB, A0.CB.98.B 

1,CD,47.0,DD,46.0,CB 

C8.B,0.CD.47,0,6,6 

E,2,CD,47,0,6,3,B 

4 , CD, 47, 0, C9, 3A, 14, F0 

D3, A8, C9, 3A, 15, F0, D3, AS 

C9, 56, 45, 4F, 0, 55, 53. 4F 

0.21.8C.BF, 11.B3.P3.1 

26, 0, ED, B0, 21 , BF, BF, 7B 

B7.28, 4, DF, 23, 18, F8, 6 

A. C5, 1. 0, 0, B, 78. Bl 

20, FB.Cl, 10, F4. 0,0,0 

0, 0, 0, C9. 0, 8, 0, 

0,0,0,0,0,0,0, 14 

0. 17,0.0.0. 10, 0, 8 

0, 18,0, 20, 0.0,0, IB 

0, 38, 0, 8, 0, 0, 0, 

0, IB, 0. 38, 18, 10, IB. 20 

30, 28, 34 . 38, 0, 0. 0, 7 
A, A, D, 20, 20. 20, 20, 20 
20. 20, 20, 41, 6D. 70. 6C. 69 
61 , 63, 69, A2, 6E, 20, 31, 2E 

31 . A, A. D, 20, 20, 20, 20 
43, 6F, 6D, 61 , 6E, 64, 6F, 73 
3A, 20, 5F, 55, 53. 4F, 20. 79 
20. 5F, 56. 45. 4F, A, A. D 
20, 20, 28, 63, 29, 20. 57.2E 
4D.69.72.61.67.61.6C.6C 
20. 79. 20. 4D. 53. 56. 20. 43 




En SCREEN 3, por razones de como- 
didad y limitaciones del VDP, adoptamos 
otro sistema. En este modo de pantalla te- 
nemos zonas libres; pero es mucho 



difícil redistribuir las tablas adecuadamen- 
te (no como en SCREEN y SCREEN 1 
> era tarea muy fácil), por lo que 
zona de RAM que 



INSTRUCCIONES 
DE CARGA 



Para poder hacer uso de las ampliacio- 
nes del BASIC, seguid paso a paso las si- 
guientes instrucciones de carga. 

En primer lugar entrad el listado en BA- 
SIC del programa. Tened cuidado con las 
inacabables líneas DATA, ya que un solo 
fallo puede hacer que el programa no fun- 
cione. Acordaos siempre, antes de ejecu- 
tar el programa, de verificarlo. 

Una vez estéis seguros de que el listado 
está entrado correctamente, proceded a 
ejecutarlo. Tras escribir la palabra mági- 
ca 'RUN', el ordenador comenzará a in- 
troducir los datos en las posiciones de me- 
moria adecuadas y tras esto os indicará: 
Pulsa PLAY & RECORD en el casset- 
te y ENTER para comenzar a grabar- 
Ante este mensaje, introducid una cin- 
ta virgen en vuestro cassette y preparaos 
para grabar el programa en ensamblador. 
Pulsáis PLAY & RECORD en el casset- 
te y luego ENTER (o RETURN) en vues- 
tro ordenador. 
Cuando acabe de grabarse en programa, 



el ordenador hará un RESET (parecerá 
apagarse y encenderse de nuevo). No os 
preocupéis, ya que esto es necesario para 
que se amplié el BASIC. Ya podéis comen- 
zar a programar. 

Otras veces que queráis utilizar el BA- 
SIC ampliado, sólo tendréis que introdu- 
cir la cinta que acabamos de grabar, teclear 
BLOAD "CAS:" R y esperar a que car- 
gue el programa. 

Una última recomendación: para salva- 
guardar el programa en ensamblador que 
permite la ampliación del BASIC, os re- 
comiendo que hagáis siempre que progra- 
méis con la ampliación BASIC, el siguien- 
te CLEAR al comienzo de todos vuestros 
programas: 

CLEAR 200, &HECFF 

El 200 podéis cambiarlo según las nece- 
sidades de memoria de vuestro programa; 
pero no así el segundo término: 
&HECFF. 



destinamos a la simulación del cartucho 
de ROM (recordad la primera parte de este 
artículo). Es en esta zona donde almace- 
naremos las diferentes pantallas del 
SCREEN 3. Pasar de una a otra no es ta- 
rea difícil, ya que contamos con una ruti- 
na del sistema operativo que nos permite 
copiar un bloque de memoria de la RAM 
a la VRAM. 

Esta rutina, para los que gustéis de la 
programación en ensamblador está sita en 
la dirección # 5C. He aquí un listado de 
cómo utilizarla: 

LD HL, dirección de inicio del buffer 
en RAM 

LD DE, destino de la VRAM 

LD BC, longitud del bloque a copiar 

CALL # 5C 

También incluímos la rutina contraria, 
es decir, la que pasa de VRAM a RAM: 
LD HL, dirección de inicio en la VRAM 
LD DE, destino en la RAM 
LD BC, longitud del bloque a copiar 
CALL #59 

Como podréis comprender, esta confi- 
guración de las múltiples pantallas en 
RAM y no en VRAM no nos permite ver 
una pantalla mientras se dibuja en otra, ya 
que siempre dibujamos en la VRAM, y ve- 
mos los dibujos de la VRAM. 

Estamos seguros de que sabréis sacarles 
el máximo provecho a estos dos nuevos 
comandos de vuestro BASIC. Mirad la ta- 
bla 1 y recordad: si quiere colocar una 'A' 
en la esquina superior izquierda de la pan- 
talla 7 (en SCREEN 0) deberéis hacer: 
VPOKE 9216,65 

mientras que VPOKE 9217,66 coloca- 
rá una 'B' a la derecha de la 'A'. Eso es 
todo... ¡por ahora! 



12 



i ¡¡SONÓ LA FLAUTA!!! 



ESTEMES 
LANZAMOS 




La primera revista de CompactDisc de España 
COMPACTA Y DIFERENTE 



Totalmente pensada para los usuarios de CD, un concepto 
revolucionario en la reproducción del sonido. 
Toma nota de nuestro sumario 

- CD - La pureza del sonido 

- CD - Interactivo 

- CD-ROM 

- GUIA COMPLETA DE APARATOS COMPACTDISC 

- COMPLETO CA TALOGO DE DISCOS 
Música clásica y jazz 

- LOS 50 CLASICOS IMPRESCINDIBLES 

- LOS «TWENTYPOPS» 




NO ES CASUALIDAD 

Otro producto de Manhattan Transfer, S.A. 




rograma 



SBANKY 



Por Enrique L Graziano 



Debes conducir a SBANKY has- 
ta la base más alta, corriendo y sal- 
tando por sus dos pantallas. 



INSTRUCCIONES 

Se trata de un juego de dos pantallas 
en las que SBANKY debe llegar a la base 
más alta para sobrevivir. Debe hacer 
esto antes de que el fantasma acabe con 
él. 

En la primera pantalla utilizará el ju- 
gador tres posiciones del cursor para co- 
rrer y saltar. En la segunda además uti- 
lizará el disparador para colocar las 
distintas bases a su altura para poder 
subir. 



VARIABLES 

X, Y coordenadas del sprite de 
SBANKY 

BX, BY coordenadas del fantasma 
SG, SF sentido en movimiento del fan- 
tasma en horizontal y vertical 
respectivamente 



N sentido de marcha horizontal 
de SBANKY 

G simulación de gravedad para 
SBANKY 

SP elección de sprite derecha o iz- 
quierda de SBANKY 



lf 'tttttttttttttttttttttttttttttttttt 

20 I t 
31 'I SBANKY $ 

4f 'I I 

5f • tt t tutu t i tt t 1 1 1 t mmt tmtm t 

M SCREEN2 , 2 : CLEAR6M: COLOR 1 , 1 5 , 1 5 : CLS : 

PEM'BRP:"AS#1:FD=1 

7f GOSUB4480 

81 60SUB82I 

9f COLOR 2, 1,1: CLS 

100 ONFB6OSUB600.720 

110 ' INICIALIZACION 

121 PRESET ( 16, 11 ) : PRINTI1 , W : PTM0 
130 PUTSPRITE0, (164,164), 4,3¡X=164:Y=164 
:6M:SFM:S6Mf:YlM2f:Y2=YlsY3«Y2:Y4=Y3 
!Y5*Y2»BX«U9:8Y*4 

140 LIME(117,4)-(133,2i),2,BF:SPRITE0N 
151 N«liG«0t6OTO210 

161 'ttttlttBUCLE PRINCIPAL!» t ttt Hit ti 
17§ Z=STICK(0):PUTSPRITE0,(X,Y),4,3*SP 

180 ' SALTO 

191 IFPOINT ( X*6 f Y+16) «1THENY-Y-1 

211 I FZ = 1 THEN6=4 : 60T02 1 0ELSE2B# 

211 X=X- ( 1 . 2IN) : Y=Y-5: 6=6-. 3: IF6<0THENS= 

2ELSES*f 

220 IFX<10THENX=250 

231 IFX>250THENX*10 

241 IFP0INT(X*8,Y)»lTHENG*-7 

251 PUTSPRITEi, (X, Y) ,4, S+SP: IFPOINT ( X+8, 

Y*18)«1ANDPOINT(X*9,Y*1B)*1THEN260ELSE21 

I 



260 PUTSPRITEf, í X, Y) , 4, l+SP:F0RI*f T02f: B 
OUNDB, 13:SOUND0,0:SOUNDl f I»5:S0UND7,iBll 
101110: HEXTi PUTSPRITEI , ( X , Y) , 4, 3+SPsSOUN 
D8,0 

27| p CARRERA 

280 I F Z= 7THENSP=0 : N= 1 : 60T03M ELSE290 
290 IFZ*3THEMSP*7 : M*- 1 : 6OTO30f ELSE340 
300 X»X-(4tN)»PUTSPRITE0,(X,Y),4,5*SPiFO 
RI=0TO5¡NEXT 

311 IFX>255THENXMELSEIFX<fTHENX=255 
320 X*X- (4tN) : PUTSPRITE0, (X, Y) ,4,6+SP: X= 
X-<4tN) :PUTSPRITEf, ( X, Y) , 4, 5+SP: IFPOINT < 
X+8,Y+18)<>1ANDPOINT(X+9,Y+18)<>1THEN6=0 
:6OTO210 

330 ' BASES 

340 IFFDO2THEN6OTO490 

350 IFSTRI6 (0) THENPUTSPRITE0, ( X-4, Y) , 4, 4 

*SP ELSE480 

360 IFSP=0THEN430 

370 IFX>*0ANDX<22THENLINE(31,Y1)-(59,Y1* 
5),15,BF:LINE(31,Y+8)-(59,Y+13),l,BF:Yl= 
Y*8 

380 IFX>=22ANDX<52THENLINE(61,Y2)-(99,Y2 
♦5),15,BF:LINE(61,Y+8)-(99,Y*13),l,BF:Y2 
=Y+8 

390 IFX>=52ANDX<92THENLINE(101,Y3)-(149, 
Y3*5),15,BF:LINE(101,Y+8)-(149,Y*13),l,B 
F:Y3=Y+8 

400 IFX>*92ANDX< 142THENLINE ( 151 , Y4) - ( 189 
l Y4*5),15,BF:LINE(151,Y+ , 8)-(189,Y+13),l, 
BF:Y4=Y+8 

410 IFX >*142ANDX< 182THENLINE ( 191 , Y5) - (21 

9,Y5*5),15,BF:LINE(191,Y*8)-(219,Y*13),1 

,BF:Y5=Y*8 

420 IFSPO0THEN480 

430 IFX>=52ANDX<92THENLINE(31,Y1)-(59,Y1 
♦5),15,BF:LINE(31,Y*8)-(59,Yil3),l,BF:Yl 
■Y*B 

440 IFX>*92AMDX< 142THENLINE (61, Y2) - (99, Y 
2*5),15,BF:LINE(61,Y*8)-(99,Y*13),1,BF:Y 
2-Y+8 

450 IFX>»142ANDX< 182THENLINE ( 101 , Y3) - ( 14 
9,Y3*5),15,BF:LINE(101,Y*8)-(149,Y*13),1 
,BF:Y3=Y*8 

460 IFX >= 1 82ANDX< 2 1 2THENL I NE ( 151 , Y4) - ( 18 
9,Y4*5),15,BF:LINE(151,Y*8)-(189,Y*13),1 



FD número de pantalla 

PT puntuación y borrado de vidas 

Z variable de espera o contador 

(FORUTO) 
PA, PM puntuación presente y máxima 
Yl, Y2, Y3, Y4, Y 5 posición de las bases 



,BF:Y4=Y*8 

470 PUTSPRITE0, ( X, Y) , 4, 3*SP: S0UND8, 

480 ' FANTASMA 

490 PUTSPRITE3, (BX, BY) , 2, 24s 8X*BX* (S6IRN 
D (-TIHE) ) : BY S BY+ (SFtRND (-TIHE) ) 
500 IFBX>240ORBX<9ORBY>1B0ORBY<-10THENBX 
=119:BYMrBEEP 
510 IFX<BXTHENS6*-6ELSES6-6 
520 S0UND1 , 0: SOUNDB, 12: S0UND6, 3: AAM ABS ( 
BX-X)*ABS(BY-Y))/2:SOUND0,AA*10 
530 IFY<BYTHENSF=-4ELSESFM 
540 IFRND (TIME) >.8THENBF«2+SFELSESF«SF-2 
550 ONSPRITE6OSUB580 
560 ' — LINEA 550=LINEA DE LLEGADA A BAS 
E — 

570 IFY<25ANDX>100ANDX<150THEN43B0ELSE17 


580 SOUND8,15:SOUND7,7:SOUND1,15:SOUND0, 
100:FORI=lTO100:SOUND6,I:NEXTsSOUND8,0 



14 




590 PUTSPRITE0, ( X , Y) , B, 33: FORI=0TO1000: N 
EXT:SPRITE0FF:PUTSPRITE3, (125,4), 2,24:PT 
=PT-B:LINE(PT, 1 1 ) - (PT+8, 19) , 15, BF:BX=125 
:BY=4:SPRITE0N: IFPT=16THEN4450ELSE17« 

600 ' F0ND01 

610 LINE(0,5)-(260,1B0),15,BF 
620 LINE(100,0)-(150,10),15,BF 
630 LINE(0,120)-(200,125),1,BF 

640 LINE(230,120)-(260,125),1,BF 
650 LINE(100,30)-(150,35),1,BF 
660 LINE(80,150)-(260,155),1,BF 
670 LINE(0,150)-(50,155),1,BF 
680 LINE(0,90)-(120,95),1,BF 
690 LINE(150,90)-(260,95),1,BF 
700 LINE(0,60)-(B0,65),1,BF 

710 LINE(110,60)-(260,65),1,BF:RETURN 

720 ' — -F0NDQ2 

730 LINE(0,5)-(260,1B0),15,BF 
740 LINE'100,0)-(150,10),15,BF 
750 LINE(30,lB0)-(30,50),2 
760 LINE(60,180)-(60,50),2 
770 LINE(100,30)-(150,35),1,BF 
780 LINE(100,50)-(100,180),2 
790 LINE(150,50)-(150,180),2 
800 LINE(190,50)-<190,180),2 
810 LINE(220,50)-(220,180),2:RETURN 

820 ' SPRITES • 

830 F0RI=1T016 

641 READAI 

850 BI=BI+CHRI ( VAL ("W+LEFTItAI, 8) ) ) 
860 C$=C$+CHR$ (VAL ( "W+RI6HTI ( Al, 8) ) ) 
870 NEXTI 




880 SPRITEI(0)=BI*CI 
890 DATA00000001 10000000 
900 OATA00000010010II000 
910 DATA00f00010010000f0 
920 DATA0000000110ffffff 
931 DATA0000000011000000 
940 DATA0000000010100000 
950 DATA0000000010010000 
960 DATA0000000011001000 
970 DATA0I00000001000000 
980 DATA000000000 1000000 
990 DATA00000000IU00000 
1000 DATA0000000000100000 
1010 DATA00000f0f001000f0 
1020 DATA0000000000010000 
1030 DATA0000000000010000 
1040 DATA0000000000010000 
1150 F0RI=1T016 
1060 READAI 
1070 DIsDI+CHRKVALCM'tLEFTKAl.B))) 
1080 EI*EI+CHRI(VAL('fcB'*RI6HTI(AI,8))l 
1090 NEXTI 

1100 SPRITEI(2)=DI+EI 
1110 DATA0000I00 11 0000000 
1120 DATA0000001001001000 
1130 DATA0000001001010000 
1140 DATA000000011010000f 
1150 DATA000000001 1000000 
1160 DATA0000000010000000 
1170 DATA0000000010000000 
1180 DATA00000001 10000011 
1190 DATA0000000 100000000 
1200 DATA0000000100000000 
1210 DATAffffffl 100000000 
1220 DATA0000001000000000 
1230 DATA0000001000000000 
1241 DATA00000100000000I0 
1250 DATA0000010000000000 
1260 DATA0000010000000000 
1270 F0RI*1T016 
1280 READAI 

1290 FI»FI+CHRI(VALCI.B"*LEFTI(AI,8))) 
1 300 GMGI+CHRI ( VAL ( i lB'*Rl6HTI ( Al, 8) ) ) 
1310 NEXTI 

1320 SPRITEI(1)«FI+6I 
1330 DATA0000000000000000 

1 "Ufl n& J baaaaaaaaaaaaaaaa 

i jiv un \ nvvwvvwvvvvvwvvV 

1350 DATA0000000000000000 
1360 DATA0000 000000000 000 
1370 DATA000000011ffff0ff 
1380 DATA0000001001000000 
1390 DATA0I000010010I0000 
1400 DATA00000001 10010001 
1410 DATA000000001 1000000 
1420 DATA0000000010100000 
1430 DATA000000001 1010000 
1440 DATA0000000I1 1001000 
1450 DATA00000111U000000 
1461 DATA000011 1000000000 



1470 DATA000ff01U0000000 
1480 DATA00000001 10000000 

1490 F0RI=1T016 
1500 READAI 

1510 HI«HI*CHRI ( VAL ( , IB"*LEFTI(AI, 8) ) ) 
1520 I IMI+CHRI (VAL ( 'IB'íRI6HTI ( Al, 8) ) ) 
1530 NEXTI 

1541 SPRITEK3 )=H$+I$ 
1550 DATA0000000110000000 
1560 DATA0000001001000000 
1570 DATA0000001001000000 
1580 DATA0000000110000000 
1590 DATA0000000010000000 
1600 DATA0000000010000000 
1610 DATA0000000I1 1000000 
1620 DATA000000001 1000000 
1630 DATA0000000010100000 
1640 DATA0000000010100000 
1650 DATA00000f0010«M0M 
1660 DATA0000000010000000 
1670 DATA0000000010000000 
1680 DATA00M00H100M000 
1690 DATAI00000001MH00I 
1701 DATA00000H01000000I 
1710 F0RI-1T016 
1720 READAI 

1730 LMI+CHRKVALCH'HEFTKAl.a))) 
1740 IH=HI*CHRI(VALflB'*RI6HTI(AI,8))> 
1750 NEXTI 

1760 SPRITES ( 4)*LI*M 
1770 DATA00000001 10000000 
1780 DATA00000U001000000 
1790 DATA0000001001000000 
1800 DATA00000001 10000001 
1810 DATAffllllllllfflffi 
1820 DATA0000000010100000 
1830 DATA0000000100010000 
1840 DATA0000000100010000 
1850 DATA11 111 11 100000000 
1860 DATA0000000100000000 
1870 DATA0000000100000000 
1880 DATA0000000100000000 
1890 DATA0000111000000000 
1900 DATA0000000000000000 
1910 DATA0000000000000000 
1920 DATA0000000000000000 
1930 F0RI=1T016 
1940 READAI 

1950 j|- JI+CHRI ( VAL ( 'W+LEFTKAI, 8) ) ) 
1960 KI*KI*CHRI(VAL('ltB'*RIGHTI(AI,8))) 
1970 NEXTI 

1980 SPRITEI(5)«JI+KI 
1990 DATA0000000U0000000 
2000 DATA0000001001000000 
2010 DATA0000001001000000 
2020 DATA00000001 10000000 
2030 DATA0000000011000000 
2040 DATA0000000010100000 
2050 DATA0000000010010000 



2060 DATAf0000f011f0100f0 
2171 DATA0000000110010000 

.... nATAAAIlflt Al liiii II 
¿vqv Un I ñvvvvvv i V 1 VvuVvvv 

2090 DATA0000000101000000 
2100 DATA0000000100100000 
2110 DATA00000010000U100 
2120 DATA0000001000000000 
2130 DATA0000001000000000 
2140 DATA0000001000000000 
2150 F0RMT016 
2160 READAI 

2170 M»llf*CHRI(VAL("lB"*LEFTftA$ l B))) 
2180 0$*0$*CHR$ (VAL ( ■«■♦RISHTt ( A$, 8) ) ) 
2190 NEXTI 

2200 SPRITEI(6)*NI*0I 
2210 DATA00000001 10000000 
2220 DATA0000001001000000 
2230 DATA0000001001000000 
2240 DATA00000001 10000000 
2250 DATA0000000010000000 
2260 DATA00000000 10000000 
2270 DATA0000000010000000 
2280 DATA0000000010000000 
2290 DATA0000000U0000000 
2300 DATA0000001010000000 
2310 DATA0000010010000000 
2320 DATA000000U1U00000 
2330 DATA000000000 1000000 
2340 DATA0000000000100000 

1WA AATAAAAAAAAAAAA1 AAAA 
¿OJB VH I HlVf f VVlf Vil IVVVV 

2360 DATA0000000000010000 

2370 F0RMT016 
2380 READAI 

2390 RI«RI+CHRI ( VAL ( ' IB * +LEFTI ( Al , 8) ) ) 
2400 St>St+CHRt (VAL ( " W+RI6HTI ( Al, 8) ) ) 
2410 NEXTI 

2420 SPRITEI(33)=RI+SI 
2430 DATA0000000000000000 
2440 DATA0000000000000000 
2450 DATA0000000000000000 
2460 DATA0000000000000000 
2470 DATA0000000000000000 
2480 DATA0000000000000000 
2490 DATA0000000000000000 
2500 DATA0000000000000100 
2510 DATA0000000000001110 
2520 DATA0000000000000100 

¿300 UHIH0000000000000100 

2540 DATA0000000000000000 

2550 DATA0110000000000000 

2560 DATA1001000000000000 

2570 DATA1001000000000001 

2580 DATA01101111111111U 

2590 F0RI-1T016 

2600 READAS 

2610 0$«Q$+CHR$ < VAL ( " M ■ *LEFTt ( Af , 8 ) ) ) 



2620 PMPI+CHRI (VAL ( 'fcB'+RIGHTI ( Al, 8) ) ) 
2630 NEXTI 

2640 SPRITEI(7)*QI*PI 
2650 DATA00000001 10000000 
2660 OATA0000001001000000 
2670 DATA0000001001000000 
2680 DATA00000001 10000000 
2690 DATA000000U00000000 
2700 DATA0000010100000000 
2710 DATA0000100100000000 
2720 DATA0001001 100000000 
2730 OATA0000001000000000 
2740 DATA0000001000000000 
2750 DAT A000001 1000000000 
2760 DATA0000010000000000 
2770 DATA0000010000000000 
2780 DATA0000100000000000 
470a iiataaaaaiaaaaaaaaaaa 

íliV Un I Hllll 1 lllvlllllV" 

2800 DATA0000100000000000 

2810 FQRMT016 
2820 READAI 
2830 TI=TI+CHRI ( VAL CIB'+LEFTKAI, 8) ) ) 
2840 UI=UI+CHRI ( VAL ( 'M'+RIGHTI ( Al, 8) ) I 
2850 NEXTI 

2860 SPRITEK9)=TI*UI 
2870 DATA0000000110000000 
2880 DATA0001001001000000 
2890 DATA0000101001000000 
2900 OATA0000010U0000000 
2910 DATA0000001100000000 
2920 DATA0000000 100000000 
2930 DATA0000000100000000 

40IA I1ATAAAAAAAA1 llllllll 
íiiv l/M I Hff ■ vw Wwl 1000 0000 

2950 DATA0000000010000000 
2960 DATA00000000 10000000 
2970 DATA0000000011000000 
2980 DATA0000000001000000 
2990 DATA0000000001000000 
3000 DATA0000000000100000 
3010 DATA0000000000100000 
3020 DATA0000000000100000 
3030 F0RMT016 
3040 READAI 

3050 VI=VI+CHRI(VAL('*B'*LEFTI(AI,B))) 
3060 m«NI*CHRI (VAL ( 'W+RIGHTI ( Al, 8) ) ) 
3070 NEXTI 

3080 SPRITEf (8)'Vt+H$ 

Tana hat haaaaaaaaaaaaaaaa 
0070 UH I H0000000000000000 

3100 DATA0000000000000000 
3110 DATA0000000000000000 

3120 DATA0000000000000000 
3130 DATA0000000 11 0000000 
3140 DATA0000001001000000 
3150 DATA0000001001000000 
3160 DATA0000000 110000000 
3170 DATA0000001 100000000 





3180 DATA0000010100000000 
3190 DATA0000101 100000000 
3200 DATA0001001100000000 
3210 DATA000000U1U00000 
3220 DATA0000000001 110000 
3230 DATA00000001U000000 
3240 DATA00000001 10000000 
3250 F0RIMT016 
3260 READAI 

3270 XI"XI*CHRI(VAL( , fcB , *LEFTI(AI,B))) 
3280 YI»YI*CHRI (VAL CW+RIGHTI ( Al, 8) ) ) 
3290 NEXTI 

3300 SPRITEI(10)=XI+YI 
3310 DATA0000000U0000000 








3320 mmummmm 
333f DATA0000001001000000 

3340 DAT A000 0000110000000 
3350 DATA0000000100000000 
3360 DATA0000000100000000 
3370 DATA000000U00000000 
3380 DATA0000001 100000000 
3390 DATA0000010100000000 
3400 DATA0000010100000000 
3410 DATA0000000100000000 
3420 DATA0000000100000000 
3430 DATA0000000 100000000 
3440 DATA0000000100000000 
3450 DATA0000000100000000 
3460 DATA0000000100000000 
3470 FORI=1T016 
3480 READA* 




3490 
3500 

) 

3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 



Z$=Z*+CHR$(VAL("lcB"+LEFT$(A$,8) )) 
AA*=AA$*CHR$ (VAL ( "fcB'+RIGHT* ( A$, 8) ) 

NEXTI 

SPRITE$(11)«Z$*AA$ 
DATA00000001 10000000 



DATA0000001001000000 

DATA0000000 11 0000000 
DATA0000001 11 1111000 



DATA0000100010000000 



DATA0000000011111111 
DATA0000000010000000 
DATA0000000010000000 



DATA0000000001 110000 



DATA0000000000000000 

DATA0000000000000000 

F0RMT016 
F0RI*1T016 
READA* 

BB$ s BB*+CHRf( VALÍ *liB"+LEFT$(A$, B) ) ) 
CC$=CC$+CHR$(VALCIB'+RI6HT$(A$,8 



3740 NEXTI 

3750 SPRITE$(12)=BB$+CC$ 
3760 DATA0000000U0000000 
3770 DATA0000001001000000 
3780 DATA0000001001000000 
3790 DATA00000001 10000000 
3800 DATA0000001 100000000 
3810 DATA0000010100000000 
3820 DATA0000100100000000 
3830 DATA00001001 10000000 
3840 DATA00001001 10000000 
3850 DATA0000000101000000 
3860 DATA0000001010000000 
3870 DATA0000010010000000 
3880 DATA001 1100001000000 
3890 DATA0000000001000000 
3900 DATA0000000001000000 
3911 DATA0000000001000000 
3920 F0RWT016 
3930 READAS 

3940 DD$=DD$*CHR$ ( VAL ( ' IB ■ +LEFT$ ( Al , 8 ) ) ) 
3950 EE$=EE$+CHR* (VAL ( ■| t B"+RI6HT$ (A$, 8) ) 



3960 NEXTI 

3970 SPRITE$(13)=DD$+EE$ 
3980 DATA00000001 10000000 
3990 DATA0000001001000000 
4000 DATA0000001001000000 
4010 DATA0000000 11 0000000 
4020 DATA0000000100000000 
4030 DATA0000000100000000 
4040 DATA0000000100000000 







4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 



DATA0000000100000000 
DATA00000001 10000000 



DATA0000000100100000 
DATA000001111 1000000 



DATA0000010000000000 
DATA0000100000000000 



F0RI=1T016 
READA$ 

JJ$=JJ$+CHR$( VAL ( "iB'+LEFTS ( A$, 8) ) 
KK$=KK$+CHR$(VALCiB'*RI6HT$(A$,8) 



4180 NEXTI 

4190 SPRITEt (24) =JJ$+KK* 
4200 NEXT 

4210 DATA00000000011111U 
4220 DATA0000001111111100 
4230 DATA0000011 11 1100000 
4240 DATA0000111U1000000 
4250 DATA00011U110000000 
4260 DATA00000001 10000000 
4270 DATA0100101111001000 
4280 DATA1101111111001100 
4290 DATA00111 11 11 1110000 
4300 DATA00111111 11000000 
4310 DATA001 11 11 11 1100000 
4320 DATA0111111111100000 
4330 DATA0111111111110001 
4340 DATA01 1 1111111111111 
4350 DATA00111111111111U 
4360 DATA0001111111001100 
4370 RETURN 

4380 PLAY'A2BC4D8E16F32G64': PRESET (100.1 
00) ¡PRINTil, "LO CONSEGUISTE , :6OTO4460 
4390 FORI»#TO2M0: NEXT: CLS: COLOR 15,14,1 
4:CLS:PUTSPRITE3,(100,100),2,24:PUTSPRIT 
E0, (100, 109), 8,33 

4400 PA« ( (FDtl00)*PT) : IFPA>PHTHENPH=PA 
4410 PRESETU6, 10) ¡PRINTil, 'TU PUNTUACIO 
N ES:';PA 

4420 PRESET(16,40)!PRINTI1,"LA MAXIMA ES 
i';PH 

4430 FD=1 : PRESET (16, 70) ; PRINTil , "¿JUEGAS 
OTRA VEZ7IS]" 

4440 IFINKEY$= , S"THEN90ELSE4440 

4450 PLAY , 62FE4D8C16B32A64'¡PRESET(100, 1 

00):PRINTI1,'PERDISTE':GOTO4390 

4460 IFF0O2THEN PRINTil, " PASAS A LA S 

IGUIENTE PANTALLA '¡FORI=0TO1000:NEXT¡FD 

=FD+1:6OTO100 

4470 IF FD*2THEN4390ELSE100 

4480 'mmiNSTRUCCIONEStUtlttUUHU 

t 

4490 FORI=10TO100STEP10:LINE(l,I)-(260-I 
,190-1), 1/10, BF:NEXT 
4500 PRESET ( 104, 92) s PRINTil , 'SBANKY' 
451 G=0: Fx5: FORA=15TO0STEP- 1 : 6*6*. i : FOR 
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Programa 



nu i' itíDt fi.i.vi'í m -ni» 




«s'.i-iM-pi. 1. 1 . >,4...a--.s «*. 



K=10TO0STEP-6:F=F+.5:FORB=0TO250STEPF:SO 
UND8, A: SQUND0, B : S0UND1 , 0: S0UND1 3, 8: NEXT: 
NEXT: NEXT 
4520 SQUND8,0 

4530 CL5: PREBET (0, 10) :PRINT#1 , " SBANKY 
DEBE LLEGAR HASTA LA BASE SUPERIOR P 



ARA SOBREVIVIR UCUIDADITQ CON EL FANT 
ASNA! ! " : PRINTil , " HAY DOS PANTALLAS .EN 
LA PRIMERA SOLO UTILIZARAS LAS 

TECLAS DEL CURSOR PARA CORRER Y SAL 

TAR 

4540 PRINTil , " EN LA SEGUNDA UTILIZARAS 



EL DISPARADOR PARA COLOCAR LAS 
BASES A TU ALTURA Y PODER SUBIR.' 
4550 PRESET < 125, 120) ¡ DRAWC8D10R3U4R4D4L 
4R10U3L4U3R4 , :PRESET(140,128):DRAN'C8R4U 
4D4L4U4':FORI=0TO1000:NEXT 
4560 RETURN 



Test de listados 



Sbanky 



TEST DE LISTADOS. Para usar el Test de Listado que publicamos al final de cada programa debe cargarse el programa correspon- 
diente publicado en nuestro número 7 del mes de noviembre, pág. 28. 



10 


- 58 


430 


-208 


850 


-142 


1270 


-196 


1690 


-133 

A V V 


2110 


-136 


2530 


-133 


2950 


-133 


20 


- 58 


440 


-185 


860 


-145 


1280 


-236 


1700 


-133 

A vW 


2120 


-133 


2540 


-132 


2960 


-133 


30 


- 58 


450 


-202 


870 


-204 


1290 


-150 


1710 

4 ' A V 


-196 

A » W 


2130 


-133 


2550 


-134 


2970 


-134 


40 


- 58 


460 


-199 


880 


-250 


1300 


-153 


1720 


-236 


2140 


-133 


2560 


-134 


2980 


-133 


50 


- 58 


470 


- 78 


890 


-134 


1310 


-204 


1730 


-162 

A UL 


2150 


-196 


2570 


-135 


2990 


-133 


60 


-174 


480 


- 58 


900 


-134 


1320 


- 3 


1740 


-165 

A U w 


2160 


-236 


2580 


-146 


3000 


-133 


70 


- 44 


490 


-129 


910 


-134 


1330 


-132 


1750 


-204 


2170 


-166 


2590 


-196 


3010 


-133 


80 


-210 


500 


- 57 


920 


-134 


1340 


-132 


1760 


- 18 

A W 


2180 


-169 


2600 


-236 


3020 


-133 


90- 


- 37 


510 


- 84 


930 


-134 


1350 


-132 


1770 


-134 

A W » 


2190 


-204 


2610 


-172 


3030 


-196 


100 


- 32 


520 


-247 


940 


-134 


1360 


-132 


1780 

A 1 uv 


-135 

A w w 


2200 


- 24 


2620 


-171 


3040 


-236 


110 


- 58 


530 


- 80 


950 


-134 


1371 


-134 


1790 


-134 


2210 


-134 


2630 


-204 


3050 


-182 


120 


-179 


540 


-249 


960 


-135 


1380 


-134 


1800 


-134 


2220 


-134 


2640 


- 29 


3060 


-185 


130 


- 26 


550 


- 61 


970 


-133 


1390 


-134 


1810 


-140 


2230 


-134 


2650 


-134 


3070 


-204 


140 


-116 


560 


- 58 


980 


-133 


1400 


-134 


1820 


-134 


2240 


-134 


2660 


-134 


3080 


- 42 


150 


-115 


570 


- 54 


990 


-134 


1410 


-134 


1830 


-134 


2250 


-133 


2670 


-134 


3090 


-132 


160 


- 58 


580 


-1 IB 


1000 


-133 


1420 


-134 


1840 


-134 


2260 


-133 


2680 


-134 


3100 


-132 


170 


-128 


590 


-184 


1010 


-133 


1430 


-135 


1850 


-140 


2270 


-133 


2690 


-134 


3110 


-132 


180 


- 58 


600 


- 58 


1020 


-133 


1440 


-135 


1860 

■ WWW 


-133 

A WV 


2280 

A> tVW V 


-133 


2700 


-134 


3120 


-132 


190 


- 62 


610 


-164 


1030 


-133 


1450 


-137 


1870 

A W / V 


-133 


2290 


-134 

A V 1 


2710 


-134 


3130 


-134 




-174 


620 


-219 


1040 


-133 


1460 


-135 


1880 


-133 


2300 


-134 


2720 


-135 


3140 


-134 


210 


- 41 


630 


-136 


1050 


-196 


1470 


-135 


1890 


-135 


2310 


-134 


2730 


-133 


3150 


-134 


220 


- 22 


640 


-182 


1060 


-236 


1480 


-134 


1900 


-132 


2320 


-137 


2740 


-133 


3160 


-134 


230 


- 20 


650 


- 4 


1070 


-146 


1490 


-196 


1910 


-132 


2330 


-133 


2750 


-134 


3170 


-134 


240 


-203 


660 


- 92 


1080 


-149 


1500 


-236 


1920 


-132 


2340 


-133 


2760 


-133 


3180 


-134 


250 


- 13 


670 


- 46 


1090 


-204 


1510 


-154 


1930 


-196 


2350 


-133 


2770 


-133 


3190 


-135 


260 


-167 


680 


-252 


1100 


- 


1520 


-157 


1940 


-236 


2360 


-133 


2780 


-133 


3200 


-135 


270 


- 58 


690 


- 42 


1110 


-134 


1530 


-204 


1950 


-158 


2370 


-196 


2790 


-133 


3210 


-137 


280 


-252 


700 


-152 


1120 


-135 


1540 


- 9 


1960 


-161 


2380 


-236 


2800 


-133 


3220 


-135 


290 


- 35 


710 


-142 


1130 


-135 


1550 


-134 


1970 


-204 


2390 


-174 


2810 


-196 


3230 


-135 


300 


- 31 


720 


- 58 


1140 


-135 


1560 


-134 


1980 


- 15 


2400 


-177 


2820 


-236 


3240 


-134 


310 


-255 


730 


-164 


1150 


-134 


1570 


-134 


1990 


-134 


2410 


-204 


2830 


-178 


3250 


-196 


320 


-229 


740 


-219 


1160 


-133 


1580 


-134 


2000 


-134 


2420 


- 57 


2840 


-181 


3260 


-236 


330 


- 58 


750 


- 56 


1170 


-133 


1590 


-133 


2010 


-134 


2430 


-132 


2850 


-204 


3270 


-186 


340 


- 98 


760 


-116 


1180 


-134 


1600 


-133 


2020 


-134 


2440 


-132 


2860 


- 39 


3280 


-189 


350 


- 53 


770 


- 4 


1190 


-133 


1610 


-134 


2030 


-134 


2450 


-132 


2870 


-134 


3290 


-204 


360 


-197 


780 


-196 


1200 


-133 


1620 


-134 


2040 


-134 


2460 


-132 


2880 


-135 


3300 


- 46 


370 


- 88 


790 


- 40 


1210 


-134 


1630 


-134 


2050 


-134 


2470 


-132 


2890 


-135 


3310 


-134 


380 


- 25 


800 


-120 


1220 


-133 


1640 


-134 


2060 


-135 


2480 


-132 


2900 


-135 


3320 


-134 


390 


- 22 


810 


-124 


1230 


-133 


1650 


-133 


2070 


-135 


2490 


-132 


2910 


-134 


3330 


-134 


400 


- 39 


820 


- 58 


1240 


-133 


1660 


-133 


2080 


-134 


2500 


-133 


2920 


-133 


3340 


-134 


410 


- 16 


830 


-196 


1250 


-133 


1670 


-133 


2090 


-134 


2510 


-135 


2930 


-133 


3350 


-133 


420 


-230 


840 


-236 


1260 


-133 


1680 -133 


2100 


-134 


2520 


-133 


2940 


-134 


3360 


-133 



3370 -134 
3380 -134 
3390 -134 
3400 -134 
3410 -133 
3420 -133 
3430 -133 
3440 -133 
3450 -133 
3460 -133 
3470 -196 
3480 -236 
3490 -190 
3500 - 15 
3510 -204 
3520 - 90 
3530 -134 
3540 -134 
3550 -134 
3560 -134 
3570 -139 
3580 -134 
3590 -134 
3600 -134 
3610 -140 
3620 -133 
3630 -133 
3640 -133 
3650 -135 
3660 -132 
3670 -132 
3680 -132 
3690 -196 
3700 -196 
3710 -236 
3720 - 18 
3730 - 23 
3740 -204 
3750 -137 
3760 -134 
3770 -134 



3790 -134 
3800 -134 
3810 -134 
3820 -134 
3830 -135 
3840 -135 
3850 -134 
3860 -134 
3870 -134 
3880 -136 
3890 -133 
3900 -133 
3910 -133 
3920 -196 
3930 -236 
3940 - 26 
3950 - 31 
3960 -204 
3970 -146 
3980 -134 
3990 -134 
4000 -134 
4010 -134 
4020 -133 
4030 -133 
4040 -133 
4050 -133 
4060 -134 
4070 -134 
4080 -134 
4090 -137 
4100 -133 
4110 -133 
4120 -133 
4130 -133 
4140 -196 
4150 -236 
4160 - 50 
4170 - 55 
4180 -204 
4190 -181 



4210 -139 
4220 -140 
4230 -138 
4240 -138 
4250 -138 
4260 -134 
4270 -139 
4280 -143 
4290 -142 
4300 -140 
4310 -141 
4320 -142 
4330 -144 
4340 -147 
4350 -146 
4360 -141 
4370 -142 
4380 -183 
4390 -148 
4400 -127 
4410 - 53 
4420 -250 
4430 -197 
4440 - 63 
4450 -237 
4460 -109 
4470 -131 
4480 - 58 
4490 -210 
4500 - 90 
4510 -181 
4520 - 26 
4530 -250 
4540 -141 
4550 -145 
4560 -142 



TOTAL: 
62025 
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ATREVETE ÍSS UTILIDADES 

— PRACTICAS PARA TU MSX 




ESTAREMOS EN S.I.M.O. PABELLON 10 
NIVEL SUPERIOR STAND C 18 




Disponer de una sensacional calculadora residente 
en tu MSX, a tu alcance en cualquier instante, con sólo 
tocar un tecla. Un reloj alarma programable. 

Copiar por impresora las pantallas de tus programas. 
Crear fantásticos efectos de animación. Disponer 
formidables editores de sprites y avanzadas 
instrucciones para su manejo. ¡¡IMAGINA!! 
Consultar un completo prontuario de tu 

BASIC MSX interactivamente... sólo con 
conectar uno de nuestros programas y 
¡a funcionar! ¡ASI DE FACIL! 



'ermite aumentar la capacidad de 
jestión y edición de nuestro MSX. Po- 
ente editor de formas de distintos tama- 



ios y colores, pudiendo ser salvadas o car- 
iadas desde cualquier otro programa, permi- 
iendo el control de velocidad, orientación 
ambio de formas de sprites. 



UPE PACK 

'ermite acceder a múltiples funciones desde cual- 
luier programa dada su transparencia. Entre otras 
ios proporciona una potente calculadora científi- 
a, reloj alarma programable, copia de pantallas 
ior impresora... SIDE PACK será un inseparable 
le tu ordenador. 




La más potente calcula- 
dora científica que puedes comprar para 
tu ordenador. Programa pensado para 
todas aquellas personas que requieran 
un potente soporte matemático, rápido 
y sencillo de usar. 



encabezados, pies de página, movimiento e 
inserción de bloques, etc. Trabaja con cualquier 
impresora. Compatible con IDEA BASE y DIM 
CALC. Permite salvar en cinta o disco. 



lOEA BASE 

Impresión de etiquetas y listados. 42 K de me- 
moria libre de trabajo. Ordenación de registros 
Menús conversacionales e interactivos. 
Puede salvar o grabar en cinta o disco. 
Es compatible con IDEA TEXT y DIM CALC. 



NUESTRO DEPARTAMENTO 

de M.C. está a su disposición 

Consúltenos: 
Tel. 253 74 00 



Pedidos: 254 5128 

•Delegados y distribuidores 
en todo el país 



_ 



IDEALOGIC 



c/. Valencia, 85 — 08029 Barcelona 
Tel. 253 74 00 - 253 90 45 




RECORTA Y ENVIA ESTE CUPON A: SERMA. C/. CARDENAL BELLUGA. 21. 28028 MADRID. TELFS. 256 21 01. /02. 



TITULO:, - 

NOMBRE Y APELLIDOS: 

DIRECCION: CODIGO POSTAL: 

POBLACION: PROVINCIA: 

FORMA DE PAGO: ENVIO TALON BANCARIO □ - CONTRA REEMBOLSO □ 




BASES 

1 ."-Podrán participar todos nuestros lectores 
cualquiera sea su edad. 

2. "-Los programas se clasificarán en tres cate- 
gorías: 

Educativos 
Gestión 

Entretenimiento 

3. "-Los programas deberán ser remitidos gra- 
bados en cassette debidamente protegidas, dentro 
de su estuche de plástico. 

4. "-No entrarán en concurso aquellos progra- 
mas que ya hayan sido publicados por otros me- 
dios o plagiados. 

5. °-Junto a los programas se incluirán las ins- 
trucciones correspondientes, detalle de las varia- 
bles, ampliaciones posibles y todos aquellos co- 
mentarios que el autor considere de interés. 

6. "-Todos los programas han de estar estructu- 
rados de modo claro, separando con REM los 
distintos sectores del mismo. 



PREMIOS 

7. <--MSX CLUB OTORGARA LOS SI- 
GUIENTES PREMIOS: • 

JOYSTICK DE ORO MSX CLUB Y UNA 
UNIDAD DE DISCO AL MEJOR PROGRA- 
MA DEL AÑO. 

Además mensualmente se premiarán los pro- 
gramas publicados del siguiente modo: 

10.000 pts. los programas Educativos 

10.000 pts. los programas de Gestión 
6.000 pts. los programas de Entretenimiento 

FALLO Y JURADO 

8. --E1 Departamento de Programación de MSX 
CLUB DE PROGRAMAS hará la primera selec- 
ción de la que saldrán los programas publicados 
en cada número de la revista. 

9. °-Los programas no se devolverán salvo que 
así lo requiera el autor. 

10."-La elección del PROGRAMA DEL ANO se 
hará por votación de nuestros lectores a través de 
un boletín que se publicará en el mes de octubre 
de 1987. 

1 l."-El plazo de entrega de los programas finali- 
zará el 31 de octubre de 1987. 
12.--EI fallo se hará conocer en el número de di- 
ciembre de 1987, entregándose los premios en el 
mismo mes. 
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MSX SOFTWARE 







Por Joaquín López 



HARD COPY 



Se notaba a faltar un buen pro- 
grama de «HARD COPY» para 
MSX. A fin de cubrir esta ausen- 
cia, hemos creado uno que satis- 
fará al usuario más exigente. 
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Se trata de un programa con gran canti- 
dad de opciones y posibilidades, aunque 
no por ello difícil de manejar. En efecto, 
todas las acciones son controladas siguien- 
do un método cada vez más usado en el 
software moderno: los menús por ven- 
tanas. 



COMO MANEJAR HARD 
COPY 

La forma de cargar el programa es usan- 
do BLOAD" CAS:",R 
Pronto aparece el mensaje: 
found: HCMSXO 

Al poco tiempo se borra la pantalla y 
se muestra: 
HARD COPY 
CARGANDO.. 

Cuando se ha completado la carga, apa- 
rece un mensaje de bienvenida y se indica 
que la entrada al programa se realiza pul- 
sando la tecla SELECT. 



En este punto, ya puedes olvidarte de 
él hasta que realices un dibujo y quieras 
copiarlo. 

Al pulsar la referida tecla SELECT en- 
tramos por fin en HARD COPY, y apa- 
rece un menú con diecisiete opciones di- 
ferentes a la vez que se muestra una flecha 
apuntando a la seleccionada en ese mo- 
mento. La flecha en cuestión se desplaza 
atendiendo a los requerimientos de las te- 
clas del cursor o de un joystick. Cuando 
se encuentra sobre la opción deseada, se 
pulsa el disparador y se abre otra ventana 
que da acceso a un submenú en el que tam- 
bién aparece la flecha cursora. Como ves, 
es sencillo saber dónde se está en cada mo- 
mento, gracias al empleo de las ventanas. 

Quizás estés pensando que todo esto re- 
sulta muy- atractivo, pero que el progra- 
ma debe «comerse» casi toda la memoria 
disponible. Sin embargo, uno de los pun- 
tos fuertes del programa es que no toca ¡ni 
un solo byte del área del usuario!. HARD 
COPY se aloja en las 32K de RAM no ac- 




POR JOAQUIN LOPEZ 

Mc;nus por ventanas tres 
tormatos de copias simulación 
en blanco y negro copia 
sprites redefine colores 
compatible con cualquier 
impresora matricial 
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cesibles al BASIC, de ahí que sea capaz de 
no gastar memoria y de preservar integra- 
mente el programa desde el que fue llama- 
do. Cuando se abandona el copiador el 
control vuelve al sitio del que partió, de- 
jando todo como estaba antes de la llama- 
da. En contrapartida, HARD COPY sólo 
corre en ordenadores de 64K. 

Se ha preferido esto a la posibilidad de 
instalarlo en la RAM del usuario debido, 
como se ha dicho, a impedir el empleo de 
la memoria libre en un programa tan lar- 
go (4000 instrucciones de código má- 
quina). 



UN EJEMPLO FICTICIO 

Supon que has cargado HARD COPY 
y a continuación has hecho lo propio con 
un juego. En el momento que aparece una 
pantalla interesante, pulsas la tecla SE- 
LECT. Una vez en el menú principal, te 
vas a la opción «VER 
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ALMACENADA». Tras comprobar con 
detenimiento si es la que tú quieres, pul- 
sas una tecla (o mueves el joystick) y si- 
gues con el proceso. Ahora, lo primero 
que debes hacer es ir a la opción «MOS- 
TRAR/ OCULTAR FORMATO AC- 
TUAL», a fin de saber qué tipo de copia 
está seleccionada, qué modelo de impre- 
sora está vigente, si se van a copiar los 
SPRITES, cómo es el margen izquierdo, 
el número de pasadas, etc. Acto seguido, 
y en el supuesto de que la impresora se- 
leccionada no coincida con la tuya, te vas 
a la opción «FIJAR LA IMPRESORA». 
Si tienes una MSX o una EPSON- 
compatible (SEIKOSHA, por ejemplo) 
únicamente tienes que pulsar el dispara- 
dor sobre el modelo elegido. Si tu impre- 
sora no responde a los códigos de control 
de alguná de éstas (caso muy raro) elige en 
el submenú la opción «OTRAS» y apare- 
cerá una nueva ventana, muy explícita por 
cierto, donde podrás introducir los co- 
mandos de impresión adecuados. 



A continuación puedes seleccionar el 
tipo de copia. Verás que el programa ofre- 
ce tres posibilidades: normal, doble y si- 
mulación: en las dos primeras el degrada- 
do de grises se consigue asignando a cada 
color un porcentaje del número total de 
pasadas si quieres que todos los puntos de 
color magenta reciban dos pasadas de las 
cuatro que se van a realizar, en la opción 
«VARIAR EL TONO DE LOS COLO- 
RES» debes poner un 50 (50 %) encima del 
color en cuestión (magenta, en este caso). 
Si, por otra parte, deseas que el negro re- 
ciba cuatro pasadas debes asignarle un por- 
centaje de 99 (el máximo). Comprenderás 
ahora el método seguido para determinar 
el grado de gris de cada color: asignarle un 
porcentaje del número total de pasadas. 

La tercera opción de copia, «simula- 
ción», logra el degradado de grises con vir- 
tiendo cada punto de la pantalla en una 
matriz de 3 x 3, de suerte que los puntos 
de esta matriz corresponden con lo que tú 
hayas definido previamente en la opción 
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POR SOLO 800 PTAS. 



} PVP 275 PTAS. 
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Qül HALLARAS TOI 
L SOFTWARE DEL 
ERCADO EN MSX. 
NO TE LO PIERDAS. 
Programas de juego* 
utilidad, educativos, 
gestión. Una guía 
completa con más 
de 100 títulos. 
Cassettes, cartuchos, 
diskettes, tarjetas y 
ibros. 

Además todas las 
empresas de hardware 
oftware con sus 
irecciones y teléfono 
n número 

prescindible para el 
uario MSX. 
A ESTA EN TU 
UIOSCO 

SX CLUB ESPECIAI 
OFTWARE algo FUI 
E SERIE. 
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«MODIFICAR LAS TRAMAS*. Natu- 
ralmente, este tipo presenta un tamaño 
nueve veces mayor que el original, y la co- 
pia, que ocupa todo un DIN A-4, se hace 
en sentido vertical, a diferencia de las dos 
primeras en el que las copias se hacen en 
sentido horizontal. Es importante señalar 
que la utilidad de este tipo de simulación 
de los colores en todo lo referente al di- 
bujo de mapas cartográficos o gráficos es- 
tadísticos. Empleándolo, podrás obtener 
gráficos de «tarta» parecidos a los que se 
exhiben en periódicos o revistas. Sin em- 
bargo, en esta opción no se copian los 
SPRITES, ya que es un tipo de copia que 
no se presta a determinar con exactitud los 
detalles, sino más bien a sombrear zonas 
con diferentes rayados. 

En fin, cuando hayas concretado los 
puntos importantes, ya puedes completar 
la definición de la copia eligiendo entre co- 
piar en inverso, copiar o no los SPRITES 
o el fondo, etc. Y no te preocupes por el 
hecho de que adaptar el formato, para ob- 
tener exactamente lo que deseas, sea una 
tarea laboriosa. Piensa que cuando lo ten- 
gas todo definido puedes ir a la cinta, para 
no tener que repetir el trabajo cada vez. 
Por cierto, si lo deseas, también puedes al- 
macenar la pantalla con la opción «GRA- 
BAR LA PANTALLA». 



CABOS SUELTOS 

Hay varios detalles importantes más: 
— Debes observar cuidado con la lon- 
gitud del margen a imprimir, ya que es po- 
sible excederse con el y hacer que la im- 
presora no pueda completar una línea del 
dibujo sin efectuar un retorno de carro. 
Las columnas máximas del margen habrán 



de ser dictadas en función de cada tipo de 
copia y de impresora. 

— En las opciones de grabación/carga 
es optativo introducir el nombre. Si se es- 
pecifica al cargar, el programa mostrará el 
mensaje «ENCONTRADO:», seguido 
por el nombre. Si éste no coincide con el 
buscado, desaparecerá de la de la pantalla 
a los pocos segundos y se ignorará. Debes 
saber, empero, que HARD COPY sólo 
compara el nombre tecleado con el que se 
encuentra hasta la longitud del primero, 
es decir: si das como nombre «P», cargará 
el primer fichero que encuentre cuyo 
nombre empiece por la referida letra. 

— Si en cualquier mooento quieres de- 
tener una operación (impresión, graba- 
ción, etc.) debes pulsar simultáneamente 
las teclas CTRL y STOP. Inmediatamen- 
te aparecerá un mensaje de error y el con- 
trol volverá al menú principal. 

— En el caso de que llames al programa 
desde SCREENO o SCREEN3, HARD 
COPY te indicará que has cometido un 
error y rehusará la entrada al programa, 
ya que sólo trabaja en SCREEN1 o 2 (las 
únicas pantallas en las que se puede hacer 
gráficos interesantes). 

DOS LIMITACIONES 

Ya se ha dicho la forma de acceder a 
HARD COPY: pulsar la tecla SELECT. 
No obstante, existen programas comercia- 
les que emplean rutinas propias de lectu- 
ra del teclado. En éstos, es probable que 
el sistema operativo no llegue a enterarse 
jamás de que la referida tecla ha sido pul- 
sada y, por consiguiente, el programa co- 
piador no conseguirá entrar en funciona- 
miento. En este caso, la única forma de 
copiar la pantalla es desproteger el progra- 
ma, almacenarla en una cinta, pulsar re- 
set, cargar el copiador y posteriormente 
la pantalla. El camino es laborioso, pero 
no hay otro. De cualquier forma, todos 
los programas escritos en BASIC permi- 
ten copiar la pantalla directamente, así 
como un buen número de programas co- 
merciales. 

La otra circunstancia que puede crear 
problemas, es intentar copiar la pantalla 
de un programa que emplee rutinas para 
acceder al VDP sin pasar por el BIOS. 
Puesto que los registros del VDP son de 
sólo lectura, no habrá forma de saber qué 
tipo de pantalla se está intentando copiar 
ni de qué formato son los SPRITES. Sin 
embargo, hay pocos programas que des- 
precien las ventajas de usar el BIOS para 
acceder al VDP, lo que implica que el sis- 
tema guaradará una copia en la RAM de 
cada uno de los registros del procesador 
de video. 



ENTRA EN EL FANTASTICO 
MUNDO DE LA ALTA 
TECNOLOGIA MUSICAL CON TU 
ORDENADOR MSX Y 
SISTEMAS MIDI 

DESCUBRE LOS NUEVOS 
SONIDOS SINTETIZADOS Y LAS 
FABULOSAS POSIBILIDADES DE 

LA INFORMATICA MUSICAL 

APROVECHA AHORA 
ESTA OFERTA MUY 
ESPECIAL: 



50% de Descuento en el precio del Interface MIDI MIDI- 
TRACK PERFORMER para MSX y 2 Cables MIDI, al 
adquirirlos junto con tu sintetizador en SISTEMAS MIDI. 



Sólo 23.180, 



jgar de 46.360,- 




piR's MIDITKACX PEKFORMt.K 
h» momt idvtnetd rw U« 



NUESTRA SELECCION 
DE SINTETIZADORES 

• CASIO CZ-101 (teclas pequeñas): 89.700,- 

• CASIO CZ-1000 (teclas normales): 128.200,- 

• YAMAHA DX-100 (teclas pequeñas): 85.000,- 

• YAMAHA DX-27 (teclas normales): 1 15.900,- 

PR0GRAMA MIDITRACK PERFORMER 

• Secuenciador de 8 pistos polifónicas programables 
en tiempo real. 

• Auto-corrección, Pinchazo, Sincronización, etc. 

NOTA: Los precios i 



SISTEMAS MIDI 
(Una División de VENTAMATIC) 
d Córcega, 89, entio. - 08029 BARCELONA 
Tel.: (93) 230 97 90 / 230 98 05 

| 

Nombre y Apellidos: 



Dirección: 



Población: CP. 

Provincia: 



El importe de mi pedido lo hago efectivo mediante: , 

□ Cheque adjunto » ' 

□ Giro Postal Número 

□ Contra-Reembolso (más gastos de envío 



sí 



3% en caso de envío por agencia). 

□ Con cargo a mi Tarjeta de Crédito VISA / I 

MASTERCARD / AMERICAN EXPRESS | 

(más gastos de envío) Número | 



Firma: 



APLICACION 



J.C. González 



EL COMIC 



Siguiendo la línea de información e innovación que 
en esta revista procuramos para nuestros lectores, hoy 
abrimos una vez más la posibilidad de un horizonte 
nuevo, a través de la aplicación de los ordenadores 
más allá de los juegos, y en cosas más serias como 
son las aplicaciones profesionales. 







. >«*> v 

S& >í ¿< ;■>. Sí: v; : - •>*'•>*• v;í 




SIEMPRE ES" 
CAMINANDO Cl 
UNO NfiURJfi I 
LO MAN 



ESTAN 
BARRA 



SI 



ME UE UE 
MILIMETF 



IflHH 



Asistencia 

Pl 





26 



Siempre hemos insistido en que los or- 
denadores MSX, debido a pertenecer 
a un estándar, no quedaban obsoletos 
frente a nuevos modelos de la norma que 
pudieran ir apareciendo, principalmente 
debido a su completo BASIC (básicamente 
el mismo que, utiliza el IBM PC) que lo 
hace especialmente apto para las aplicacio- 
nes gráficas, video, composición musical 
e incluso gestión. No es menos interesan- 
te la gran gama de periféricos que se están 
comercializando para MSX por parte de 



diversas casas de software y hardware. A 
pesar de la poca capacidad de memoria li- 
bre para usuario en los primeros aparatos 
que se comercializaron, así como el ele- 
vado precio de las unidades de disco, que 
fueron causa de que muy pocos profesio- 
nales optaran por utilizar MSX en sus tra- 
bajos. Sin embargo aquella minoría que 
optó por usar el MSX, abriendo una línea 
de acción, incluso abandonando equipos 
superiores, sin duda está de enhorabuena, 
ante la presentación del MSX2. Para co- 




n POLI C IR NO HRCE 
DA POR DETENERME 
OUE SOBEN QUE SOY 
MUERTO. 





ESTOY MUERTO. CRDR 

NOCHE UUELUO RL BAR, 
CRDR NOCHE, CUANDO ME 
MRTR , SOLO ME HRCE UN 
NUEUO RGUJERO. 
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rroborar este interés, nos hemos acerca- 
do a «ZAP» un estudio de diseño que ac- 
tualmente está a la vanguardia de estas 
experiencias en Barcelona, esperando que 
nos expliquen sus actividades dentro del 
campo de la informática aplicada al dibujo. 
Jaume Fargas y MarceMi Miret han saca- 
do provecho gráfico de los microordena- 
dores domésticos (MSX y MSX2, ATA- 
RI, SPECTRUM, DAI, etc.), elevándolos 
a la categoría de «Ordenador profesional» 
y han sido los primeros en aplicar el or- 
denador al comic. 

En Italia se había dado un experimento si- 
milar, pero Miret y Fargas han sabido 
aprovechar los avances en software inclu- 
yendo textos generados por el mismo or- 
denador. La revista Primera Línea publi- 
có en el mes de Mayo el primer comics 
abriendo de esta manera el campo de la 
aplicación gráfica en el mundo de la na- 
rrativa gráfica. 

Dos meses más tarde la revista de comic 
EL VIBORA se suma a la experiencia pu- 
blicando otro de estos comics. La acogida 
de esta expresión gráfica ha sido más que 
satisfactoria para ZAP. 
Los interesados en la informática lo han 
visto con curiosidad y están siguiendo la 
evolución de estas publicaciones. Ningún 
crítico se ha metido con ella, sino todo lo 
contrario, como demuestra el interés so- 
cial y las mismas actividades de los ayun- 
tamientos, promocionando exposiciones 
de material gráfico y demostraciones de 
funcionamiento del software. 
Está claro que los ordenadores utilizados 
hasta ahora por ZAP studi, no son de alta 
resolución, son los MSX de que cualquier 
persona puede disponer en su casa o en su 
trabajo, pero también son un medio que 
convenientemente trabajado, puede dar 
resultados imprevistos. Marcel-lí Miret 
opina lo siguiente: 

— La profesionalidad está en el fondo y 
no en el medio con el que se trabaja. Un 
soft de diseño por ordenador, nos da una 
serie de posibilidades análogas a cualquier 
otra forma de dibujo... Si por ejemplo te- 
nemos un lápiz, podemos hacer con el un 
dibujo a trazo libre, y si encima consegui- 
mos un compás, podremos hacer circun- 
ferencias y círculos. 

—Un software de dibujo, por tanto nos 
da electrónicamente una serie de utensi- 
lios de trabajo. El software es más perfec- 
to cuantas más posibilidades nos de. A este 
nivel ni lo que tenemos es tan pobre, ni 
la perfección llegará a existir jamás. 
También hemos preguntado a Jaume Far- 
gas, ¿desde cuándo trabajáis con microor- 
denadores? 

—Ya los conozco desde pequeño. En la 
empresa donde trabajaba mi padre, él y sus 
amigos me enseñaron a apreciar los orde- 
nadores y los rudimentos de su uso. En 
Holanda durante mi etapa migratoria, lle- 
i ordenador de gestión y i 
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primeros simuladores. Después en Espa- 
ña, hace cuatro años, me puse a trabajar 
con DAI, que era lo mejor de su época. 
Más resolución o puntos por pantalla que 
ningún otro, y 16 colores. Para grafismo 
era lo más adecuado, lo utilizábamos y aún 
nos sirve para diseño de anagramas. 
¿Cuál es vuestra experiencia con los MSX? 
—En gráficos los programas existentes, al 
menos en España, aún dejan algo que de- 
sear. Lo mejor es el Eddy 2 del HAL La- 
boratory comercializado por Sony y el del 
ratón neos ms-10 de Spectravideo. Respec- 
to a los microordenadores de la primera 
generación ocupan el tercer lugar en cali- 
dad de gráficos. 

Sin embargo el MSX 2 es otra cosa. Aun- 



^ ■— 

que los fabricantes siguen provocando 
problemas de compatibilidades, permite 
un trabajo realmente profesional ya de sa- 
lida en rotulación y efectos. Para muchos 
grafistas es una herramienta de gran im- 
portancia. Hoy en día ya es muy usado 
para la generación de pantallas de video- 
juegos por las empresas de programación. 
Hemos practicado con el Melbourne Note 
que distribuye Mitsubishi, y con la versión 
1.0 del HAL's Note ya completa que es 
un gran programa, realmente útil, el Gra- 
fic Editor HBW-G090, el Videotizer 3D 
Basic y el Carácter Font. Estamos a la es- 
pera de probar aún el que ofrece Philips 
en cuanto lo distribuyan sin el ordenador. 
Para finalizar la entrevista, volvemos a 



MarceMí que nos habla de otra de las apli- 
caciones de los microordenadores: 
—Los ordenadores pequeños, pueden re- 
sultar muy útiles a la pedagogía. Creo que 
es en el campo escolar donde pueden en- 
contrar su máxima aplicación. Los niños 
tienen la posibilidad de hacer sus propios 
diseños para revistas o el trabajo escolar, 
mapas, gráficos estadísticos, dibujo artís- 
tico, diseño industrial, etc. No obstante 
será necesario un gran esfuerzo por parte 
de los fabricantes para que los actuales mo- 
delos sean más potentes aunque pierdan 
flexibilidad, naturalmente sin salir del 
campo de los micros por evidentes razo- 
nes económicas. 

Dejamos ya aquí este tema, esperando que 




os haya interesado lo suficiente como para 
intentar dibujar algo con vuestro ordena- 
dor, pues no es necesario un complicado 
software. Ya sabéis que podéis programar 
vuestros propios dibujos con el pótente 
Basic del MSX. De todas formas no os de- 
saconsejamos que utilizéis un buen pro- 
grama de dibujo, la facilidad de manejo y 
las posibilidades que tienen son aptas para 
realizar dibujos e imágenes de lo más inu- 
sitado. 

En los próximos números también habla- 
remos de otras aplicaciones profesionales 
de los micros MSX relacionadas con el vi- 
deo y la música, pero de esto ya habrá 
tiempo. 
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CURSO DE INGLES 



The Gruneberg Linkword Language System es un sistema, para enseñanza de idiomas, más rápido y 
fácil que los métodos convencionales aplicados actualmente. 

En poco tiempo, máximo 20 horas, te enseñará un vocabulario de 400 palabras y adquirirás unas buenas 
nociones de gramática. Esto te permitirá entender y ser entendido en tus viajes a lugares de habla inglesa 
o en tus contactos con personas que se expresen en ese idioma. 

Por otra parte, el Sistema PlusData, consigue que el ordenador se convierta en un perfecto profi 
te explicará, orientará y corregirá, manteniendo en todo momento un "diálogo" interactivo de 
dos sorprendentes. 



esor que 
resulta- 



THE GRUNEBERG LINKWORD 
LANGUAGE SYSTEM 




LINKWORD 
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I Tavlor. "POPULAR 
COMPUTER WORLD": 



-"PERSONAL COMPUTER 
WORLD": 

"Un suceso juera de serie..." 



CHofe- "COMPUTER 

interésame » el más 



edad: 8 a 99 
años 



Programas de EAO para EGB. 







Nombre 

Apellidos 

Dirección 

Población 

D.P Tino 

I Forma de pago: Reembolso □ Giro postal Q 

I 



! 



Envío talón □ 



- □ Curso de Inglés 1. a parte. 10 lecciones Linkword. (Cinta) P.V.P. 6.900.-Ptas. 
■ □ Curso de Inglés 1. a parte. 10 lecciones Linkword. (3,5"-Disk) P.V.P. 7.900.-Ptas. 

ENVIAR ESTE CUPON A: PLUS DATA, S.A. C/. GRAN VIA, 661 pral. 08010-Barcelona. Tel. 246 02 02 



Programa 



Por Ricardo Martínez 



GEOGRAFIA 
ESPAÑOLA 



— 



No se trata de matar marcianos, 
sino de enfrentarse a la máquina 
de una forma muy diferente. Si- 
gue los mapas y textos del progra- 
ma, y luego responde a los test que 
te propone. 



VARIABLES UTILIZADAS A, B = Coordenadas Pset para rutina im- 

CP $ = Control preguntas efectuadas presión negrita 




II ' GE06RAFIA ESPAÑOLA 
20 ' PRESENTACION 
31 » 

41 KEYOFF : X =0 : Y=0 : OPEN ' SRP : "ASI: DIHCPI ( 1 
0):HlM'Nict en > :N2$> l diiH.in ■ 
50 S CREEN 2: COLORI , 10, 4: CLS¡ X*40:6OSUB620 
: PAINT ( 170, 50) : C0L0R15: A=80:BM0:T$= , 6EO 
MAFIA >6OSUB190 | 



60 A-10SiB-60iT$> i DE i i6OSUB190 

70 A=90:Bs80¡T$='ESPASA , :6OSUB190 
80 S$='E3F2E3F3H2E3F2" 
90 6OSUB4320:PLAY a R8 l i6OSUB4320 
100 FORP=1TQ2500:NEXT:X=0:GOTO820 
110 * 

120 ' RUTINA INKEY 
130 ' 



T$= Variable que se 
impresión negrita 

P= Variable para For 

k$, K= Variable para INKEY 

R = 1 Si la opción es evaluación 

R=0 Si la opción es estudio 

C, D = Coordenadas inicio DRAW 

D$= Variable DRAW 

NR$ = Nombre asociado al Draw 

Ml$. M2$= Variables de datos asociados 
al Draw 

EV= Opción evaluación 

PP = Preguntas posibles 

NP= Número preguntas efectudas 

AC = Contador aciertos 

El, E2 = Colores utilizados alternativa- 
mente en Draw, para conseguir efec- 
to intermitente. 




INTI1,T$:PSET 



140 Kf=INKEY$jIFK$= ,, THEN140 
150 K«VAL(K«):RETURN 
160 ' 

170 ' TITULOS 
180 ' 

190 PSET(A,B),POINT(A 
(A+1,B),P0INT(A+1,B):PRINTI1,T$:PSET(A,B 
♦8),P0INT(A,B*8):F0RP=1T0LEN(T$):PRINTI1 
, — ;:NEXT:PRINT:RETURN 
200 ' 

210 ' RECUADRO 
220 ' 

230 LINE(160,5)-(247,35),11,BF 
240 COLOR 1 : A» l 65 : B-9 : T$«T 1 • : 60SUB 1 9i 
250 A«165iB*21:TI«T2l:6QSUB190 
260 RETURN 
270 ' 



300 PSET(X*C,Y+D):DRAN , C=E1;XD$;':LINE(0 
,160)-(255,190),POINT(0,158),BFiRETURN13 
00 

310 ! 

320 ' INTERRUPCION POR KEY 2 
330 ' 

340 F0RP=1T03: KEY (P) OFF: NEXT: COLORI: PSET 
(X*C,Y+D)íDRAN í C»E1;XD$j , sA«15jB"160íT$- 
NR$:6OSUB190 

350 A=9: B=172: T$=H1$: GOSUB440: B=182: T$=H 
2$i6OSUB440 

360 FORP=1TO3:KEY(P)ON:NEXT:RETURN1280 



- 
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370 ' 

380 ' INTERRUPCION POR KEY 3 
390 ' 

400 FORP=1TO3:KEY(P)OFF:NEXT:RETURN990 
411 « 

42i ' ESCRITURA MENSAJES 
430 ' 

440 FORP=lTOLEN(T$) :PSET(A+6tP,B) ,POINT( 

A*6tP,B):PRINTtl,NID$(TI,P,l):NEXT:RETUR 
N 

450 ' 

461 ' ESCRITURA HENUS 
470 ' 

480 READTI: I FT !■ " F I N * THENPRESET ( 30 , 180) : 
PRINTtl, 'PULSAR LA OPCION DESEADA' :RETUR 

¡PRINTtl, T$:B=BM0:6OTO4B 
500 ' 

5ÍT' CLAVES DRAH 
520 ' 

530 IFD$«'P'THENDl* i E3F3L6RE2F2L2U2 , :G0T 
0580 

540 IFD$='S'THEND$=S$:6OTO580 

550 IFD$='I1'THEND$*'E2F2E2BF2E2F2E2BD5BL 

14E2F2E2BF2E2F2E2':6OTO580 

560 IFD$« , G , THENDt» , G2F2BR2H2E2*:GOTO580 

570 IFD$= B C"THEMDÍ*"D4E2H2D2R2" 

580 RETURN 

590 ' 

600 ' DRAM MAPA ESPAÑA 

610 ' 

620 PSET (X+104, Y*#) : DRAM"M-2 ( liM-2, 3LH-5 

, 2M-5 , -3M-4, 1M-3, -2L6LULM-4 , 2M-4 , -1HM-8, 

-2H2M-4, 2HM-5, 1H-4, -M-2, -3H262H-2, -1H-2 

,3h>l,3G2H-3,-lL2H-3,2L' 

630 DRAW'M-l, 3M+2, 4GDN+2, 1M-2, 3FM+3, -2FG 

2F62F2M-3, 2H*1 , 9D5H+1 , 6H- 1 , 6N+ 1 , 262H-4, 1 

6H-4, 6D3H-2, BH*3, 1E2H+1 , 3H-3, 2hM , 3H*4, - 

1H+1,6H-2,5H+1,4' 

640 DRAM'H-1, 7H-2.4F2RH+2, -1M+5, 1F2R2H+4 
, -3R4H+7 , 6H- 1 , 4H+3 , 2D2H-2 , - 1 DHM , 6h>3 , 1 F 
2H+3, -2H+2, -5N+3, -1R2E4H+5, -1H+6, 2E2M+5, 
1 E2R2M+3, 2H+3, -5M+1 f -6E6 " 
650 DRAWM+4, 1E2UH2M+2, -4U3E2U2M+2, -3RE5 
H-l , -2LH3H-2, -10H+2, -3U2N+2, -5RM+5, -1 1H+ 
2, 1E2H2LUH+4, -5RH+8, -5RE2U2H+8, -7H+1 , -4' 

660 DRAN'U2HU2REUH2UH2M*l,-10E3RE5f1+5,2R 
E2U7" 

670 RETURN 
680 ' 

690 ' DRAM FRONTERA FRANCIA 
700 ' 

710 PSET ( X+104, Y+0) : DRAM'H-2, 10H-1 , 2M+1, 
3RM+1 , 4M+8,4R3F2R7E2M+6, 2D2F2E2F3M+3, -1H 
+3, 1E4HM+1 , - 10E3RE5H+5 , 2RE2U7" 
720 RETURN 
730 » 

740 ' DRAM FRONTERA P0RTU6AL 
750 ' 



760 PSET < X+27, Y+3B) » DRAW " R5E2RD26F2E2M+6 
, lE2H+5,2h>l,5RFD263D63D2H-2, 1H+1, 13G3F2 
H-2, 8L2M-Í, 3H+1 , 3F2D2M-3, 7D4F3» 
770 DRAM'H-l,5LH-l,663H-l f 7' 
780 RETURN 
790 ' 

800 ' INSTRUCCIONES 
811 ' 

820 SCREEN2] COLORI, 7, 2iCLS 

830 A=15:B=5:T$= , GE0GRAFIA DE ESPASA' ¡GO 

SUB190 

840 A=15: B=20: T$='RECOMENDACIONES" : 60SUB 
190 

850 PRESET ( 15, 45) : PRINTtl , "Si gue las ins 
trucc iones que salgan en pantalla" 
860 PRESET ( 15, 75) : PRINTtl , "Todai lai ni 
puestas han de escribirse en HAYUSC 
ULAS 1 

870 A=l5:B=105:T$='t» Engancha la tecla 
'CAP' tt':6OSUB190 

880 PRESET ( 15, 125) ¡ PRINTtl , 'Para escribí 
r la ñ utiliza lai teclas 'CODE' y *W 
las dos a la vez 1 
890 LINE(i3,155)-(245,175),4,BF 
900 COLOR15iPSET(20, 160) ,4: PRINTtl, 'APRE 
TAR LA 'S' PARA EMPEZAR" 
910 GOSUB140jIFKI»'8 , THEN990 
920 IFKIOVTHEN910 

930 TI-'Engancha la Teda 'CAP'":A«20:B» 
180 

940 COLORI: GOSUB190: F0RH=1T025: BEEP: NEXT 
>COLOR7iGOSUB190 
950 6OTO910 
960 ' 

970 ' OPCIONES 
980 ' 

990 SCREEN2: C0L0R15, 4, 13: CLS: LINE (84, 6) - 
(160, 36), 7, BF 

1000 COLORI : A=90: B=16: T$="OPCIONES" : GOSU 
B190 

1010 COLOR 1 5 : RESTORE 1 040 : A=68 : B*50: GOSUB 
480 

1020 GOSUB140:ONKGOTO1080, 1830,4280 
1030 GOTO1020 

1040 DATA1 - ESTUDIO, 2 - EVALUACION, 3 - 
FIN, FIN 
1050 ' 

1060 ' ESTUDIO 
1070 ' 

1080 COLORI, 7, 4:CLS:Tlf« - ESTUD!0" 

1090 A=90:B=10:T$=T1$:GOSUB190 

1 100 RESTORE 1 1 60: A«30: B-30: GOSUB480 

1110 A=15:B=100:TM'INSTRUCCIONES FUNCIO 

NAh*IENTO'i6OBU8190 

1120 IFR=1THENR=0:6OTO1B40 

1130 RESTORE1170iA>15:B-U5:6OSUB480 

1140 6OSUB140:ONK6OTO1200,1340,1600,1710 

1150 6OTO1140 

1160 DATAi - RI0S.2 - CUENCAS HIDR06RAFI 
CAS, 3 - RELIEVE, 4 - MARES Y COSTAS, FIN 



1170 DATAUtilizar las teclas de función, 
Fl - Para cató i ir di zona,F2 - Pira que 
salgan los datos, F3 - Para tereinar el e 
studio,FIN 
1180 ' 

1190 ' ESTUDIO RIOS 

1200 C0L0R15,5,14:CLS 

1210 GOSUBÓ20: PAINT (80, 80) : COLORI 1 : GOSUB 

710: PAINT ( 130, t) : COLORI : GOSUB760 

1220 T2$«'RIOS'i6OSUB230iEl«3rE2«15 

1230 IFRMTHEN1920 

1240 ONKEY6OSUB300,340,400:FORP=1TO3:KEY 

(P)ONiNEXT 

1250 RESTORE2370 

1260 READC:IFC=0THEN1250 

1 270 READD, DI, NR$, Hl$, H2$ : 6OSUB530 

1280 C0L0R15: PSET ( X+C, Y+D) : DRAM"C=E1 ; XD$ 

i " : FORP* 1 T02M: NEXT : BEEP 

1290 PSET(X*C,Y*D):DRAM"C=E2;XDf;':F0RP= 

1TO200:NEXT:GOTO128Í 

1300 ONK6OTO1260, 1550, 1660, 1780 

1310 ' 

1320 ' ESTUDIO CUENCAS HIDROGRAFICAS 
1330 ' 

1340 COLORI , 7, 4: CLSi A-401 B» 10: Tt-'CUENCA 

S H I DROGR AF I C AS B : GOSUB 190 

1350 RESTORE 1 380 : A=40 ; BM0: 6OSUB480 

1360 GOSUB 1 40 i 0NK60T0 1 390 , 1400, 1410, 1420 

,1430,1440,990 

1370 6OTO1360 

1380 DATAI - HIÑO, 2 - DUERO, 3 - TAJO, 4 - 
GUADIANA, 5 - GUADALQUIVIR, 6 - EBR0,7 - 
Volver a OPCIONES,FIN 
1 390 RESTORE2570: EV«2 » PP» 1 : 60T01 450 
1400 RESTORE2630: EV=3: PP=lf: 6OTO1450 
1410 RESTORE2900:EV=4:PP=8:GOTO1450 
1420 RE8TORE3100iEV«5iPP«7:GOTO1450 
1430 RESTORE3290:EV*6:PP*5:6OTO1450 
1440 RESTORE3440:EV=7:PP=10 
1451 C0L0R15,15,13:CLSiK*2 
1460 T2t« -CUENCAS ■ : 6OSUB230 : E 1-5: E2- 15 
1470 LINE(0,45)-(255,155),15,BF:LINE(0,0 
)-(150,45),15,BF 

14B0 READC,D,D$,NRttLINE(0,46)-(255,155) 
,5,BF 

1490 COLORI : AM3: B=l : T$="CUENCA" : 60SUB19 

fiM2fil*13iTti > HIDROSMHCA'iíOIUI190iA 

=56 : B=24 : T$= ■ DEL " : 60SUB 1 90 

1500 A=72-(LEN(NRl)/2)t9:B=35:T**NR$:60S 

UB190 

1510 C0L0R14: PSET ( X*C, Y+D) : DRAM'XDf; ? : PA 
INT(X*C*5,Y*D+5) 

1520 COLORI : READC, D, DI: PSET ( X*C, Y*D) : DRA 
M'XDIj' 

1530 IFR=1THEN1920 

1540 ONKEY6OSUB300,340,400:FORP-1TO3:KEY 

(P)ON:NEXT 

1550 READC: IFC«0THENFQRPMTO3:KEY(P)OFFj 

NEXT:6OTO1340 

1560 GOTO1270 
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1S70 ' 

1561 ' ESTUDIO RELIEVE 
1591 ' 

1610 C0L0R7, 12, 14:CLS 

1610 6OSUB620:PAINT(255,0) 

1620 T2$= , RELIEVE':GOSUB230:E1=1:E2=15 

1630 IFRMTHEN1920 

1640 ONKEY6O8UB300, 340, 4001 FORP-1 T03i KEY 

(P)0N:NEXT 

1650 RESTORE3720 

1660 READCIIFC-0THEN16S0 

1670 6OTO1270 

1680 ' 

1690 ' ESTUDIO MARES Y COSTAS 
1700 ' 

1710 C0L0R12,7,4:CLS 

1720 6OSUB620:PAINT(80,80) 

1730 T2l* , COSTAS's6OSUB230:El«l:E2»7 

1740 COLOR4:PRESET(180,100):PRINTIl,'ss 

MAR " : PRESET ( 180 , 110) ¡PRINTtl , "< GOLFO": 

PRESET ( 180, 120) :PRINT#1 , CABO'iCOLORl 

1750 IFR S 1THEN1920 

1 760 ONKEY6OSUB300, 340, 400: F0RPMT03: KEY 

(P)0N:MEXT 

1770 RE8TORE4050 

1780 READC: IFCMTHEN1770 

1790 BOTO1270 

1800 ' 

1810 ' EVALUACION 
1820 1 

1830 C0L0R1,15,2:CLS:T1$='EVALUACIQN':R= 
1:6OTO1090 

1840 RESTORE 1 870 : A«15i B-llSi 6OSUB480 
1850 6OSUB140: ONKGOTO1880, 1890, 1900, 1910 
1860 6OTO1850 

1870 DATAEicribi li respuesta, Si crees q 

ue está bien,Pulsa 'RETURN',,Para BORRAR 
uia la tecla 'DEL', FIN 
1880 R- 1 1 EV- 1 1 PP- 1 1 BOTO 1 200 
1890 R=1:6OTO1340 
1900 R=1:EV=8:PP=10:GOTO1600 
1910 R*1:EV=9:PP=10:GOTO1710 
1 920 ONEV6OSUB1990, 2000, 2010, 2020, 2030, 2 
040,2050,2060,2070 
1930 IFR=0THENRETURN 
1940 READCi IFC-0THEN1970 
1950 READD, DI, NR$, Hit, H2li 6OSUB530 
1960 PSET ( X*C,Y*D) : DRAM'C S E1; XDS; ■ : G0T01 
940 

1970 I FR- 1 THENR-0 1 60SUB 1 920 
1980 6OTO2080 
1990 RESTORE2370: RETURH 
2000 REST0RE26 1 1 RETURN 
2010 RESTORE2670: RETURN 
2020 RESTORE2930: RETURN 
2030 RESTORE3140: RETURN 



2040 RESTORE3330: RETURN 

2050 RESTORE3480: RETURN 

2060 RESTORE3720: RETURN 

2070 RESTORE4050: RETURN 

2080 FORP» 1 TO 1 í CP« ( P ) ■ " " : MEX T í NP«0 : AC*0 

:LE=80 

2090 NI=INT(RND(-TIHE)$60)+t:C$=-- 
2100 F0RP-1T0NI i READC: IFC-0THEN6OSUB1920 
:6OTO2120 

2110 READD, D$, MR$, Hit, H2$: BOSUB530 

2120 NEXT 

2130 IFC=0THEN2090 

2140 FORPMTO10:IFNR$=CP$(P)THEN2090 
2150 NEXT 

2160 NP=NP+1:CP$(NP)=NR$ 

2170 COLORI: PSET (80, 160) ,POINT(80, 160) :P 

RINTtl, 'ESCRIBE EL NOMBRE" 

2180 PSET ( X*C, Y+D) : DRAW"C=E2¡ XD$; " : FORP* 

1TO50:NEXT 

2190 K$=INKEY$: I FK$<> " " THEN22 1 

2200 PSET ( X*C, Y+D) i DRAN'C-El j XDI; ': FORP» 

1TO50:NEXT:6OTO2180 

2210 IFASC(K$)-13THEN2240 

2220 IFASC ( K$ ) « 1 27THENPSET (80,170): COLOR 

POINT(0,170):FORP=1TOLEN(C$):PRINTI1,T 

; : NEXT ¡ Cf = " * : COLOR 1 : L E = 80 : 60T02 1 80 

2230 Cl*Cl*Kl:PSET(LE,170),POINT(LE,170) 

:PRINT#1 , K$: LE=LE+7: GOTO2180 

2240 LE=80:IFC$=NR$THEN6OSUB4320:PSET(B0 

, 180) i PRINTtl , ' MUY BIEN": AOAC+1: 60T0226 



2250 PLAY'T100L4O4EBF0EO3AO4FIO3F2O2F2 , i 
PSET(24,180),POINT(24,180):PRINTI1, I NAL, 
ESl'NW 

2260 FQRP»lTO2000:NEXTíLINE(0,i59)-(255, 
190),POINT(0,159),BF:LINE(185,46)-(255,6 
6),P0INT(184,47),BF 

2270 PBtT ( 105, 4é) i PRINTtl , "PRE6. - B NPi PIC 

T(185,56):PRINTI1,'BIEN ='AC 
2280 IFNP<PPTHEN2320 
2290 IFAC<PP/2THENPSET(B0, 160) : PRINTtl t - 
DEF I C I ENTE " : PSET ( 80 , 1 70 ) : PR I NTI 1 , " VUELVE 
A ESTUDIAR- i FORP-1TO2000I NEXTi 6OTO10B0 
2300 IFAC<PP-lTHENPSET(80,160):PRINTtl, a 
MUY BIEN" : FORP« 1 TO2000: NEXT : 6OTO990 
2310 P8ET(80,160)iPRINTtl, l EXCELENTE > i6O 
SUB4320 1 FORP- 1 TO2000 1 NE XT : 6OTO990 
2320 PSET (X*C,Y*D)i DRAN'C-El |XDI|' 
2330 6OTO2090 
2340 ' 

2350 ' DATAS RIOS 
2360 ' 

2370 DATA102, 17 , "LM-i , -4" , BIDASOA, Señal a 
il lliiti con Francia, 
2380 DATA88.20, 'H-l, -2E2H-2, -3' ,NERVION, 
Fona la rii di Bilbao, 



2390 DATAS5, 9, "DF3RN+3, 2H*1 , 3' , NALON, -i 
35 KH.-, 

2400 DATA55, 9, "WM, 3H-3, 2H-1 , 3F2' , NARCE 
A„ 

2410 DATA37, 17, , L62H2H-6, V , TAMBRE, Fona 
la Ria do Muros, 

2420 DATA45, 14, 'H-4, 2H+1 , 4H-2, 6D3H-5, 3H- 
l,462L5',HIK0,Nace en Fuente Hüa,DiiM. 
m La Guardia -340 Ki.- 
2430 DATA8B,39, , H*2,3R2FD2F63H-2,-lH-2,l 
H-9, -462H-3, -1H-9, 4H3GH6HH-3, 163DG3H-3, - 
1L2HL6M-3, -162L2H-3, -2L2" , DUERO, Nace en 
Picos de Urbión, Deseo. en Oporto (Por tuga 
1) -770 Ke.- 

2440 DATA101 , 65, 'H-l, -3H-3, -1N-4, 263H-2, 




I 



1 



4D2G4L262L62L3GLH2L363HL26H-5,-2H-5,3H2H 
-8, 2L253L4HB4D3H-2, 4M-3, l",TAJO,Nlce in 
la Huela de San Juan, Desee. en Lisboa (Po 
rtugal) -910 K»,- 

2450 DATA91, 100, 'H2LH2U2H2M-3, 163L62M-5 , 
-2H-3, -6L64D2H-4, 1H-4, -1G3H-4, -1L4H-2, 5H 
•3,5D262D10F2IM,7 l ) 6UADIANA ) Nici en Lll 
Lagunas de Rui dera, Desea. en Ayaionte - 
820 Ki.- 

2460 DATA87,119, , H+2,-4H2LH-2,5L2H-4,-2L 
2H62L26L6L62L3GL62H6LH-3,6D4H-4,3 , ,6UADA 
LQUIVIR.Nict m ll Sierra di Cizorla.Des 
ce. en Sanlúcar de Barraeeda -560 Ke.- 
2470 DATA91 , 111, 'H+6, -2RFR2F2RH+3, 5RE2R2 
-,8E6URA,Nici en ti Sierre de Segura.Dn 
ei.en 6uardaear -341 Ka.- 
2480 DATA100,70, i D2G2LG2H-t,6H*3,5D6H*4, 
2H+4, -2R2M*5 f 1FRE2" , JUCAR, Ntct m el Nud 
o de Albarracin, Desea. en Cullera -498 
Ki.- 

2490 DATA 105 ,69, • F2H-2 , 5M+2 , 7M+3 , 1 F2M+3, 

l l l TURIA,Niei in il Nudo dt Albirnein,D 
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eiei.en Valencia -243 Ki.- 
2510 DATA77 , 20 , 1 , 4EFE2F3R2H+3 , 4H+6 , 2F 
5H+2, 4F4RF5H+1, 3H+5, 1H+1 , -3H+2, 1D2H+3, 2D 
252H*l,5N+5,l , ,EBR0,Nace m Fontibrt (Ci 
ntabria),Desee.en el Delta del Ebro -92 
8 jfc,- 

2510 DATA139, 32, B H-1 , 2D11H+3, 6' , LLOBREGA 
T,Nace en las Fuentes del Ll obregat , Dése 
i. Pnt del Ll obregat - 170 Ki.- 
2520 DATA142,3l,'F62H*2,4H*8,-2',TER,Nic 
e en Ulldeter, Desee. Playa de País 
- 167 Ki.- 
2530 DATA0 
2540 ' 

2550 ' DATAS 
2560 ' 

2570 DATA96.46 

2580 DATA'M, 6F3D2H-5, -2H-6, 3H2H-9, 7M-2 




, 9H+4 , -2D8E3D4H-3 , 5F2E4N-2 , 9R2EF64FR3M-5 

,7H-2, 16H+2,7D5f1+3, 13M-3, 11R177U109L159" 
2590 DAT AM ISO 

2600 DATA106,57, 'F2H-2, 11M+2.5H-4, 10D6B4 

H-7,3D3G3M-8,2H-3,5L2' 

2610 DATA 1 34 , 71 , 'D367H+2, 7H-5, 3L3H-2, 4L6 

H2L2G2M-2,-3',SIL,Nace en Cuetos Albos ( 

León),- 228 Ki.- 

2620 DATA0 

2630 DATA37.46 

2640 DATA'fl-4, 9F2E3D562H+4, 2G3D2H+5, -3D3 
66H-1,15H+3,23D4H-7,31F266R228U109L218 B 
2650 DATADUERO 

2660 DATA158, 86, 'H+9, 5H+1 , 5F2G6H-10, -1H- 
9, -5L2HL2H-5 , 3H-6, -2H-2, 3L8H-3, 2H-2 , -365 
H3L1062H5H-7, 11L3H-6, BH-4, -2U4LGH-4, -3H- 
3,2L6H-B,3L5H3" 

2670 DATA 134, 51 , 'H-4, 1 1H+1 , 4M-2, 4H+1 , 465 

D6F2N-8,13',PISUERSA 

2680 DATANace en Piñi Libra,- 283 Ki.- 

2690 DATA155, 78, "M-7, 6L7M-8, -2H-6, 5" , ARL 
ANZA 





2700 DATAAf luente del Pisuerga, 

2710 DATA141,60,'H*2,5D4H-10,12',ARLANZO 

N 

2720 DATAAfluente del Arlanza, 

2730 DATA120, 64, 'D6H-1 , 5H-14, 27" , VALDERA 

DUEY 

2740 DATA, 

2750 DATA1 10, 49, 3H-2, 767D9H+1 , 9H-4, 
8D3G2D2H-1,4',ESLA 

2760 DATANace en Peña Prieta,- 285 Ki.- 

2770 DATA115,55, "H-2,6M+2,5M-12, 18",CEA 

2780 DATAAfluente del Ella, 

2790 DATAMl.m.'H^.-Srr^^N^-SH-S 

,-lM-2,-3',CE6A 

2B00 DATA, 

2810 DATA 112, 138, 'H+4, lh+4, -2U5H-3, -10H* 
l,-8H-2,-10',ADAJA 

2820 DATANace en la Sierra de Avila,- 16 
3 Ki.- 

2830 DATA 133, 127, 'U2H-4, -8L2H-7, -10L3' ,E 
RESMA 

2840 DATAAflumti del Adiji, 

2850 DATA112,149, , H-6,-2L2H-3,-7H*4,-16H 

2GL2H4LH-4, -5H-7, -2H' , TORNES 

2860 DATA,- 284 K¿- 

2870 DATA76, 147, 'E7UH4U4H-5, -12', AGUEDA 

2880 DATANace en Sierra de Gata, 

2890 DATA0 

2900 DATA53,46 

2910 DATA'H+4, 14D2FU4F2H-2.66D5H-4, 16H+2 
,3H-4,12H-1,7G3H*1,3H-6,17H+1,3FR3E2H*2, 
-4RH-1, 6D2L62HL2H+2, 6D8R20BU109L202' , TAJ 


2920 DATA52, 132, 'H+3, -2E3H+2, -BE7R4E2R4E 

3R6H+4, -2R4H+3, 1R2M+5, -2R2F2H+6, -2F2R6E3 

H+2,-3H+7,5R3EF2H*9,-6R2H*10,-6U2H*5,-9R 

2M+6 , -7M+4 , 2M+2 , 5D2H+2 , 4" 

2930 DATA147, 100, 'H+3, -13U3N-2, -5U4H-2, - 

4H*4,-10U4H2H+1, -5", JARANA 

2940 DATANace en Soiosierra,- 190 Ki.- 

2950 DAT A 1 4 9 , 8 1 , ■ R3H+5 , - i 4M+ 1 , -3M+3 , -2U4 

EU5', HENARES 

2960 DATAAfluenti del Jaran, Nace en Sie 

rra Hinistra - 113 Ki.- 

2970 DATA149, 94, 'R3H+1 , -3R2H+3, -8E2H+1 , - 

6E3UE3UH+2,-4',TAJUSA 

2980 DATAAfluinti del Jaran, 

2990 DATA128,100,'H+4,-2H*3,-7H-2,-4H5L2 

H-2,-lH-9,2H2UL , ,ALBERCHE 

3000 DATANace en Sierra de Gredos (Avila 

),- 177 Ke.- 

3010 DATA 1 05 , 104, 'U3E3RE3R2E3R2H+2,-3R2H 

♦3,-2',TIETAR 

3020 DATA , 

3030 DATA90, 104, 'H+2, -7H+3, -1R4E2H-1 , -5H 

♦5,-4H+l,-9E3H+l,-4',ALA60N 

3040 DATANace en Sierra Peña de Francia, 

- 209 Ki.- 

3050 DATA98, 107, 'H+2, 5H+1 0, -1F3RH+1 , 463" 



'F2DH*3,7H*6,4H*3,5',SAL 



, ALHONTE 
3060 DATA, 
3070 ÜATA85, 108, ' 
OR 

3080 DATA, 
3090 DATA0 
3100 DATA34.46 

3110 DATA'H-3, 6H-4, 3D5H-4, 16H+2, 4R6H+3, - 
BH*2,9G5H-l,-2H-2,lH-l,8H*8,-3H>3,8D3H-3 

»BH*l,6D6M-2, Í2H-4, i 1 F2H+6 , -3R4H+9 , 3F4E8 
RBM+B , 3M+8 9 1 iR 1 68U 1 Í9L2 2 1 ' 
3120 DATAGUADIANA 

3131 DATA 1 75 , 82 , ■ L2H9M-2 , -8L2HL2W-2 , 3H- 1 
0, 7L3H-2, 4H-9, -6L2H-7, - 12H-3, 863L2G3H-8, 
-1G4L2H63H362L4H2L368D4H-6, 16L2H-2, 10D9H 
♦2,4D2F3H-2,9" 

3140 DATA173,47, 'H+2,7H-2,9L2H262H-4, -2H 

-3,2 a , ZANGARA 

3150 DATA,- 220 Ki.- 

3160 DATA165,47,'6BH+2,8 , ,CI6üELA 

3170 DATA, 

3180 DATA 169, 87, 'L26H-4, -2L2G3LH-2, -5H-5 
, 1H5L3U", JABALON 

3190 DATANace en la Sierra de Alcaraz,- 
171 Ki.- 

" J " MTflll,,1,4, '"" 2, " 7E12ü3H5 "' é,lH5 *' 

3210 DATA, 

3220 DATA100,99,'E2U2L2H4H-3,-12 , ,HATACH 

EL 

3230 DATA, 

3240 DATA91 , 110, 'H-4, -10L364H-8, 2H-7, -2' 
, ARDIL A 
3250 DATA, 

3260 DATA7B, 114, 'H3L363H-6, 12', CHANZA 
3270 DATA, 
3280 DATA0 
3290 DATA27,46 

3300 DATA'H+2, 8i-3, Ui+2, 5i-2, 9d6i-2, 5i- 
1 ,6§-2,4f 2i>8, -4e>8, 2i*7, 6i>9, -7**8,-2i+ 
8, 5f 5i*3, 8g2i+9, 22i*3, -ii*3, 5i*4, 2i*4, -2 
u4e4i*2, -5e>5, -Ie2r6i*5, -7r6e2i*l 1 , 2r2f ■ 
♦5, -2r7f 2r4i*3, -5r3e2i*3, 6i*4, -6u2e2i>4, 
-14e3r2e*3, -6r6i*8, -3i-3, -2u3e*6, -9i*3, - 
14I10U96 1 

3310 DATA6UADAL8UIVIR 

3320 DATA157,77,"i+4,-10uhlg5e-2,312ghl3 

hl3hl2hi-6,-lglgi-3,-lg2i-12,612g313g212 

glhi-6,5i-4, 13d3i-3,61gd2g* 

3330 DATA167,56,'li-3,2hi-4,2i-7,5g2i-3, 

Ig2d2", GUADAL I MAR 

3340 DATANace en el Calar del Hundo,- 13 
toé- 

3350 DATA126,48,'frfr2f5d3fi-6,9',JANDUL 
A 

3360 DATANace en Sierra Morena,- 145 Ke. 

3370 DATA106, 59, •f8dfd2gl 3i-2, 5' , 6UADIAT 
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3380 DATA, 

3391 DATA174,77 > i g2d2gi-5,-lg3d21i-5,2i- 

2,-4h5i-l,-4',6UADIANA MENOR 

3401 DATANace en Hoya de Baza,- 182 Ki.- 

3410 DATA148,105,'i-5,-21i-3,-216g2i-4,- 

513g2h3uh5u2hglhu2h5",6ENIL 

3420 DATANace en el Pico del Hulhacén,- 

338 Ki.- 

3430 DATA0 

3440 DATA173.46 

3450 DATA'R10H-2, 5H+2, 17H+2, 3D3H+3, 1DH-2 
,3H-2,-lD4F2D4FD2N-6,9H-7,566H-4,7L2H-10 
, 5M-6, 4DH-2, -164DH-3, 5D2RF2D63DH-2, 1ULH- 
4,9L130U109R180" 
3460 DATAEBRO 

3470 DATA33.55, fc H*5, 1D6FH+3, -1F2N+2, -4H+ 
4,5ERFEFR2F4H+l,3F4REF2R3F2H+3,-lH*4,6F3 
RH+2, 4DF5DF5RFRH*4,5H+4, 3H+4, 7RFRH+5, 21)2 
RH*l,-2RU2EF2RH*l,4R2F3H*l,564H*l,6H+2,3 
H*6,l' 

3480 DATAU0,67, , H-l,5L4H-3,-lL7G3LD4G2L 
H-3,lH-i,3\ ARAGON 

3490 DATANace en Ibón de Astun,- 192 Ki. 

3300 DATAB9, 53, 'D5H-2, 4H-4, 2M- 1 , 9*3, 8' , 
AR6A 

3510 DATAAf luente del Aragón, 

3520 DATA114,65,*D5H-1,563H-4,1H-1,9D9H- 

2,10', GALLEGO 

3530 DATANace en el Pirineo Central,- 21 
5 Ki.- 

3540 DATA159.74, "63H-7, M-2, 1362DL6L4H-2 

, 4D3H-2, 4GD63D63D2" , SESRE 

3550 DATANace en el Pico del Segre,- 265 

3560 DATA 1 43 , 64 , " 1 , 7D62D5H-3 , 7D3H- 1 , 5F 

1 , NOGUERA PALLARESA 

3570 DATANici tn Pía di Beret, 

3580 DATA 1 35 , 68 , " 1 , 262D4H-2 , 6M+2 , 9M- 1 , 

7H+2, 8', NOGUERA R IBA60RZ ANA 

3590 DATANace en Port de Viella, 

3600 DATA122, 67, "N+3, 2D262H+3, 16H-2, 4H+1 

,5N-1,6H*2,5D4F2 , ,CINCA 

3610 DATANace en Fuentes del Cinca, 

3620 DATA69,127,'ER2E5R5N*5,-2H+2,-8RN*2 

,-4U4E3", JALON 

3630 DATANace en Sierra Ministra,- 235 K 
■.- 

3640 DATA101 , 140, 'DLH-3, -4L2H-3, -9N-5, -9 



JILOCA 

3650 DATAAfluente del Jalón, 

3660 DATA108, 152, "H-2, -6E2R3E2RM+3, -5U3M 

♦1, -4H*3, -4RH-1 , -4" .6UADAL0PE 

3670 DATANace en la Sierra de Gódar,- 19 

4 Ki.- 

3680 DATA0 

3690 ' 

3700 ' DATAS RELIEVE 
3710 ' 

3720 DATA49, 69, 'E3F2HE2F2BH54, 74XSt j E3F2 
BU4XSI j BH79, 58XSIj 1 , SISTEHA CENTRAL,, 
3730 DATA54, 74, S, SIERRA DE BREOOS, , 
3740 DATA37,70,P,PLAZA DEL HORO ALHANZOR 
.Altitud 2.592 l!', 

3750 DATA73, 65, S, SIERRA GUADARRAMA, , 
3760 DATA79,58,S,S0N0SIERRA,, 
3770 DATA52, 91 , " XSt| BH57, 87E3FE2F2' , HONT 
ES DE TOLEDO,, 

3780 DATA43,39, 'H364E3H364BU5E3F2BU3H2G3 
BU4BE2E2F2E2F2BU5H2G3BU3E4F2', MACIZO GAL 
AICO,, 

3790 DATA37,39,P, CABEZA DE HANZANEDA.Alt 
itud 1.778 i., 

3800 DATA48, 37 , ' XSf j biSI , 32e3f 2he2f 2' , HO 
NTES DE LEON,, 

3810 DATA50,32,P,TELENO, Altitud 2.188 i. 

3820 DATA49, 20, 'XSI; E2F2E2F2BLBG4XSI; BG7 
XS$;BF2XS$; ', CORDILLERA CANTABRICA,, 
3830 DATA66, 20, S, PICOS DE EUROPA,, 
3840 DATA66, 20, P, TORRE DE CERREDO, Al ti tu 
d 2.648 ■., 

3850 DATA89, 21, S, MONTES VASCOS,, 
3860 DATA82,35,'E3F3H2E3F2BG3E2F2E2F2BH8 
5, 43XSI; BM93, 48XS$; BM100, 53E4F26E2F2BH10 
2 59XS$;BG13E4F2E3F2B615XSI|-,SISTEMA IB 

EK 1 LU , , 

3870 DATA85, 43, S, PICOS DE URBION,, 

3880 DATA97,42,P,H0NCAY0,Altitud 2.313 i 

3890 DATA102, 59, S, SIERRA DE ALBARRACIN,, 
3900 DATA48, 120,E4F2G2E3F2BH5XS$;BF2XS$j 
BU3E3F2, SIERRA MORENA, , 
3910 DATA68,112,S,SIERRA MADRONA,, 
3920 DATA57, 134, XS$; BE3XS$j BU4XS$; , CORDI 
LLERA SUBBETICA,, 

3930 DATA74,127,S,SIERRA CAZORLA,, 
3940 DAT A88 , 119, S, SIERRA DE SEGURA, , 
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3950 DATA58, 142, E2F2BE2XSI; BF2XSI; , CORDI 
LLERA PENIBETICA,, 
3960 DATA80, 138, S, SIERRA NEVADA,, 
3970 DATA89, 132, P, MULHACEN, Al ti tud 3.478 
■..Pico lás alto de la Península 
39B0 DATA105,17,E3F2B67XS$jXS$|BL17E4F3B 
DI 1 XS$; BU3E3F4B610BL6XSI j BG5E3F3E2, PIRIN 
EOS,, 

3990 DATA120,12,P,ANETO, Altitud 3.404 i. 

4000 DATA 129, 54, E2F2BH4E2F2BU3E2FE2F2E2F 
BH3H2G2, CORDILLERA COSTERO CATALANA,, 
4010 DATA0 
4020 » 

4030 ' DATAS MARES Y COSTAS 
4040 ' 

4050 DATA65,5,H,HAR CANTABRICO, , 
4060 DATA96,3,G, GOLFO DE VIZCAYA,, 
4070 DATA89,6,C,CAB0 HACHICHACO,, 
4080 DATA81,5,C,CAB0 DE AJO,, 
4090 DATA59,2,C,CAB0 DE PESAS,, 
4100 DATA36,0,C,CABO ORTEGAL,, 
4110 DATA9, 51, M, OCEANO ATLANTICO,, 
4120 DATA18,14,C,CAB0 FINISTERRE,, 
4130 DATAU,96,C,CAB0 DE ROCA,, 
4140 DATA13,128,C,CAB0 SAN VICENTE,, 
4150 DATA38, 138, G, GOLFO DE CADIZ,, 
4160 DATA57, 155, C, PUNTA DE TARIFA,, 
4170 DAT A 1 38 , 96 , H f MAR MEDITERRANEO,, 
4180 DATA92,143,G,G0LF0 DE ALMERIA,, 
4190 DATA97, 144, C, CABO DE GATA,, 
4200 DATA 1 14, 126, C, CABO DE PALOS,, 
4210 DATA122,95,C,CAB0 DE LA NAO,, 
4220 DATA124,87,G,G0LF0 DE VALENCIA,, 
4230 DATA154,32,C,CAB0 DE CREUS,, 
4240 DATA0 
4250 ' 
4260 ' FIN 
4270 ' 

4280 SCREEN0:COLOR15,4,4:END 
4290 » 

4300 ' RUTINA MUSICA 
4310 ' 

4320 PLAY'T150L8V10O5DI16CI16O4F#O5FI':P 
LAY , FIDI16CI1604FI05FI , :PLAY , FID116CII60 
4FI05FI04DI05FI04Ci05F"jPLAY , F' 
4330 RETURN 
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TEST DE LISTADOS. Para usar el Test de Listado que publicamos al final de cada programa debe cargarse el programa correspon- 
diente publicado en nuestro número 7 del mes de noviembre, pág. 28. 
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V 141 


-122 


4290 


- 58 

ww 


600 


- 58 


970 


- 58 


1340 

4 Vil' 


-130 

4 Ww 


1710 


- 54 


2080 


-246 


7411 

¿7JW 


-145 


2820 

W4 V 


-189 


3190 

w* t w 


-141 

4 » 4 


3560 


- 13 

* w 


3930 


-138 

100 


4300 

7 Ww V 


- 5B 

wW 


610 


- 38 


980 


- 58 


1350 

4 WWV 


-252 


1720 


- 61 


2090 


- 5 




-777 
¿¿¿ 


2830 


-104 


3200 

VIH 


-112 


3570 


-210 

411 


3941 

77» 


-717 


4310 


- 58 

wW 


620 


- 5 


990 


-120 


1360 


- 39 


1730 


-101 


2100 


-108 


7471 


-777 
¿o¿ 


2841 

4UlV 


-234 

4W » 


3210 

v4 A w 


-176 

A / W 


3380 

w w w w 


-197 


3950 


-143 

170 


4320 

i W4 V 


-105 

4 VW 


630 


- 26 


1000 


- 4 


1370 

4 w / W 


-236 

4WW 


1740 


- 48 


2110 


-213 


748(1 


- «0 

07 


2831 


-129 

Ai» 7 


3220 

W440 


-239 

4W 7 


3390 

ww / w 


-197 

17/ 


39AI 

0700 


- 44 


4330 

■ www 


-142 

17Í 


640 


-213 


1010 


-226 


1380 

4 WWV 


-162 

4 W4 


1750 


- 77 


2120 


-131 


2490 


-156 

1 ww 


2861 


-142 

*"A 


3230 

W4 ww 


-176 

A 1 W 


3600 

www w 


- • 

w 


3970 

w7 / w 


-122 






650 


- 75 


1020 


- 39 


1390 

4 W 1 V 


-224 

44 T 


1760 


-118 


2130 


-232 


2510 


-25f 

4WW 


2870 

4W' W 


- 61 

U A 


3240 

V * 7 W 


-163 

A WW 


3610 

WW 4 W 


-231 

4tf A 


3980 

w 7 ww 


-255 






660 


-148 


1030 


-150 


1400 


- 36 


1770 


-123 


2140 


-175 


2510 

4. W 4 V 


-143 


2880 

4 WWW 


-166 

4 WW 


3250 


-176 

4 # W 


3620 


-144 


3990 

W I IW 


-136 

A wW 






670 


-142 


1040 


-227 


1410 


- 52 


1780 


-170 


2150 


-131 


2320 


- 99 


2890 


-180 


3260 


-185 


3630 


-129 


4000 


- 25 






680 


- 58 


1050 


- 58 


1420 


-253 


1790 


-145 


2160 


-193 


2530 


-180 


2900 


-130 


3270 


-176 


3640 


-237 


4010 


-180 






690 


- 58 


1060 


- 58 


1430 


-186 


1800 


- 58 


2170 


-187 


2540 


- 58 


2910 


-105 


3280 


-180 


3650 


- 64 


4020 


- 58 


TOTAL: 


700 - 58 


1070 


- 58 


1440 


-213 


1810 


-58 


2180 -166 


2530 


- 58 


2920 


- 4 


3290 -131 3660 -200 


4030 


- 58 


51033 



SUSCRIBETE A ES3 

Suscribiéndote no sólo tienes la segaridad de tener todos los meses tu 
MSX CLUB 1)1 . PROGRAjMAS en tu casa sino que recibirás 12 
números pagando sólo 10 



BOLETIN DE SUSCRIPCION MSX CLUB DE PROGRAMAS 



N.° 

Provincia 



Nombre y apellidos 
Calle 



Ciudad 

D- Postal Teléfono 

Deseo suscribirme por doce números a ja revista MSX CLUB DE PROGRAMAS a partir del número 
que pago adjuntando talón a la orden de: MANHATTAN TRANSFER, S.A. - C/ Roca i Batlle, 10 

Tarifas : España por correo normal Ptas. 1 . 750, — 

Europa por correo normal Ptas. 2.000, — 

Europa por correo aéreo Ptas. 2.500, — 

América por correo aéreo USA$ 25USA$ 

en el sobre: Departamento Suscripciones MSX CLUB. NO SE ADMITE 



10-12 - 08023 Barcelona 



Importante: C 



oiocar 
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Programa 



Por Enrique L Grazianoi 



VOYAGUER 



1| iníítmnuu.iininnin 

20 't VOYAGUER $ 

30 't $ 

40 POR t 

50 t $ 

60 I ENRIQUE I . GRft Z I ANO ' t 

70 '1 t 

B0 'I PARA HSX-CLUB t 

90 't t 

100 umtmmmmmmmt 

110 CLEAR200 

120 ' INTERRUPTS Y PRESENTACION 
130 'tttmmtmmtttmmttmtt 

140 DEFDBLA-Z :ONKEY6OSUB1340,1420:KEYÜ 
)0N:KEY(2)0N 
150 CLS:KEYOFF 
160 PRINT'Voyaguer" 

170 F0RN= 1T01 5: F0R6= 1 TO50: COLOR N; NEXT: N 
EXT 

180 COLOR 7,4,4:CLS:60SUB 1520 
190 ' ENTRADAS DE DATOS 

200 ' ttmmmmmtmmmmt 

210 CLSsPRINT" Inputs" 

220 PR1NT:PRINT:PRINT: INPUT'Hasa del pía 

neta";h? 

230 PRINT¡PRINT:INPUT'h*asa del Voyaguer" 
?HV 

240 CLS 

250 PRINT'Posicion del planeta" 

260 PRINT:PRINT:PRINT:INPUT"posicion x"; 

XP 

270 PRINT:PRlNT:INPUT"posicion y";YP 
280 PRINT:PRINT: INPUT"posicion z";ZP 
290 CLS 

300 PRINT"posicion del voyaguer" 

310 PRINT;PRINT:PRINT:INPUT'posicion x'j 

XV 

320 PRINT:PRINT:INPUT"posicion y";YV 
330 PRINT:PRINT:INPUT"posicion z";ZV 
340 CLS 

350 PRINT'velocidad del voyaguer" 

360 PRINT:PRINT:PRINT:INPUT"Velocidad x' 
;VX 

370 PRINT:PRINT:INPUT"Velocidad y';VY 
380 PR I NT : PR I NT : I NPUT " Ve 1 oc i d ad z';VZ 
390 CLS:INPUT"Valor de G';G:6OSUB790 

400 'DISTANCIAS Y VALORACION DE 





FUERZAS 

410 mmmmmummmmn 

420 S=XV-XP 

430 P=YV-YP 

440 Q=ZV-ZP 

450 R=S A 2*P A 2*Q A 2 

460 DIS=SQR(R) 

470 F=G*((HPtHV)/R) 

480 ' Aceleraciones 

490 'tmtttmtttttmmmttttttt 

500 AXV=(Ft((XP-XV)/DIS)) 
510 AYV=(Ft((YP-YV)/DIS)) 
520 AZV=(FK(ZP-ZV)/DIS)) 
530 ' Velocidades 

540 tmtmttmmtmmmttm 

550 VX=VX*AXV 
560 VY=VY+AYV 
570 VZ=VZ+AZV 
580 ' posiciones 

590 ummmtmmmmmmt 

600 XV=XV+VX 
610 YV=YV+VY 
620 ZV=ZV+VZ 
630 BEEP: 0=0+1 

640 XN=INT(((XV+50000')/100000')t200) 





Este interesante programa de as- 
tronomía permite la visualización 
de las órbitas de un satélite. Indis- 
pensable para los aficionados a la 
astronomía. 




650 IF XN>255THENXN=255 

660 IF XN<0THENXN=0 

670 YN=INT( ( (YV+50000! )/ 100000! )t200) 

680 IF YN>200THENYN=200 

690 IF YN<0THENYN=0 

700 IF 0=1THENY=YN:X=XN 

710 ' TRAZADO EN MEMORIA 

720 tmmmttmmttmmmt 

730 POKE50000 !+U,XN: POKE55000 ! +U, YN: U=L)+ 
1: IF U=5000 THEN U=0 
740 ' TAZADOS EN PANTALLA 

750 ' mtttmtmtmmmtmm 

760 LINE(X,Y)-(XN,YNU5:X=XN:Y=YN:PUTSP 
RITE3, (XN-4, YN-4) ,7 

770 LINE(5,0)-(256,20),1,BF:PRESET<10,0) 
s C0L0R15: PRINT#1 , "x ■ ; INT ( XV) ; - y";INT(YV 
);" z"INT(ZV):PRESET(10, 1») :PRINTil, "vx" 
jINTIVX);" vy";INT(VY);' vz";INT(VZ) :C0L 
0R3 

780 60T0 420 

790 ' INIC1ALIZACI0N GRAFICA 

800 ' tmttmmmmttmtmm 

810 XJ=INT(((XP+50000!)/100000!)t20l) 
820 Y J = I NT ( ( ( YP+50000 ! ) / 100010 ! ) 1200 ) 

830 SCREEN2:C0L0R 3,l,l:CLS:0PEN"grp:"AS 

1:LINE(0,21)-(200,200),3,B 

840 FORGH=lTO100¡L=INT(RND(l)t200):H*INT 

(RND(l)$180f20):C=INT(RND(l)tl4M):PSET( 

L,H),C:NEXT 

850 FORN=0TO3 

860 F0RSI=1T08 

870 READB 

880 S$=S*+CHR*(B) 

890 NEXT 

900 SPRITE$(N)=S$:S$="' 
910 NEXT 

920 PUTSPRITE2, (XJ-4, YJ-4) , 15 

930 PUTSPRITE1, (XJ-4, YJ-4) , 9 

941 PUTBPRITEI,(XJ-4,YJ-4),6 

950 RETURN 

960 DATA &D00000000 

970 DATA tb00000000 

980 DATA &O00000000 

990 DATA ¿D00000000 

1000 DATA Ibffi 10000 

1010 data 1000110000 

1020 DATA &b00000000 
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1030 DATA Itbl0f0!000 
1040 'spritel 

1050 data «00000000 

1060 DATA Ib 110001 10 
1070 DATA «01101010 
1080 DATA «01001110 
1090 DATA «01100100 
1100 DATA «01100111 
1110 DATA «01000110 
1120 DATA «00000000 
1130 'sprite2 
1140 DATA «00111100 
1150 DATA «01111110 
1160 DATA &bllllll!l 
1170 DATA «11111111 
1180 DATA «11111111 
1190 DATA «11111111 
1200 DATA «01111110 
1210 DATA «00111100 
1220 'sprite3 
1230 DATA «00000001 
1240 DATA «00000010 
1250 DATA «00100100 
1260 DATA «00011000 
1270 DATA «00011000 
1280 DATA «00100100 
1290 DATA «01000000 
1300 DATA «10000000 
1310 'SUBRUTINAS INTERRUPT 

1320 tmtmtmmtmmmmtt 

1330 ' ALTERACION DE LAS VELOCIDADES 

1340 SCREEN0: COLOR 7,4, 4: CLS 

1350 INPUT-vx "¡ VX: INPUT"vy -¡ VY: IMPUT" vz " 

¡vz 

1360 SCREEN2:C0L0R 3,1, 1:CLS:LINE(0,21)- 
(200,200), 3,B 

1370 PUTSPRITE2, (X J-4, YJ-4) , 15 
1380 PUTSPRITE1, (X J-4, YJ-4) , 9 
1390 PUTSPRITEf , (XJ-4, YJ-4) , 6 
1400 FOR6HMTO100:L=INT(RND(l)t200):H=IN 
T(RND(l)tlB0*20):C=INT(RND(i)ll4*l):PSET 
(L,H),C:NEXT: RETURN 
1410 » TRAZADO RAPIDO 
1420 SCREEN2:C0L0R 3,1,1:CLS:LINE(0,21)- 
(200, 200), 3, B 

1430 FORGH=lTO100:L=INT(RND(l)t200):H=IN 

T(RND(l)tl80+20):C=INT(RND(l)tl4+l):PSET 
(L,H),C:NEXT 

1440 PUTSPRITE2, <XJ-4, YJ-4) , 15 
1450 PUTSPRITE1, (XJ-4, YJ-4) ,9 
1460 PUTSPRITE0,(XJ-4,YJ-4),6 
1470 FORHS=0TOU-1 

1480 QM=PEEK( 50000 ' +NS) : QE=PEEK (55000 ! 
S) 

1490 PUTSPRITE3,(PJ,QE),7 
1500 NEIT 
1510 RETURN 

1520 PRINT: PRIHT: PRINT: PRINT: INPUT-¿Oui e 
res instrucciones";A$:IF INSTR(A$,'s')s0 
AND INSTR(A$,'S , )=0 THEN RETURN 







st de listados i 






1530 ' INSTRUCCIONES 




















1540 ' mmtmitmmtmmmt 




- 58 


610 


-237 


1210 


-144 


1550 COLORI, 15, 15:CLS:PRINT"Voy*ger: Inst 




- 58 


620 


-240 


1220 


- 58 


rucciones N21" 


30 


- 58 


630 


-138 


1230 


-141 


1560 PRINT: PRINT: PRINT" Este es un progra 


40 


- 58 


640 


-226 


1240 


-141 


■a de siiul ación, ":PRINT"su objetivo es 


50 


- 58 


650 


-170 


1250 


-142 


recrear los sucesos':PRINT'acaecidos a u 


60 


- 58 


660 


-178 


1260 


-142 


n satélite con posicion'sPRINT'y velocid 


70 


- 58 


670 


-228 


1270 


-142 


ad ditiriinada cuando se en-"; : PRINT" -cu 


80 


- 58 


680 


- 62 


1280 


-142 


•ntra en un caipo gravitatorio':PRINT'pl 


90 


- 58 


690 


-180 


1290 


-141 


metano." 


100 


- 58 


700 


-203 


1300 


-141 


1570 PRINT: PRINT: PRINT'PULSA SPC PARA CO 


110 


-105 


710 


- 58 


1310 


- 58 


NTINUAR" 


120 


- 58 


720 


- 58 


1320 


- 58 


1580 IF STRI6(0)<>-1 THEN 1580 


130 


- 58 


730 


- 74 


1330 


- 58 


1590 COLORI, 15, 15:CLS:PRINT"Voyager: Inst 


140 


-122 


740 


- 58 


1340 


- 64 


rucciones N°2" 


150 


-144 


750 


- 58 


1350 


- 90 


1600 PRINT:PRINT:PRINT"Se te pedirán las 


160 


- 39 


760 


- 67 


1360 


-158 


posiciones de el':PRINT'planeta y el sa 


170 


-165 


770 


-137 


1370 


-211 


til i ti artificial '¡PRINT'en las tres dii 


180 


-250 


780 


- 60 


1380 


-206 


ensiones del ispacio'sPRINT'Los rangos d 


190 


- 58 


790 


- 58 


1390 


-202 


e (X,Y,Z) son de -50.000 a 50.000' 


200 


- 58 


800 


- 58 


1400 


-159 


1610 PRINT:PRINT:PRINT*PULSA SPC PARA CO 


210 


- 49 


810 


-216 


1410 


- 58 


NTINUAR* 


220 


-158 


820 


-218 


1420 


-158 


1620 IF STRIG(0)<>-1 THEN 1620 


230 


- 70 


830 


- 20 


1430 


-215 


1630 CLSsPRINT'Voyagir: Instrucciones N83 


240 


-159 


840 


-215 


1440 


-211 


■ 


250 


- 51 


850 


-198 


1450 


-206 


1640 PRINT: PRINT: PRINT "Luego si te pedir 


260 


-233 


860 


- 17 


1460 


-202 


an la vilocidad'iPRINT'tridiiinsional di 


270 


- 32 


870 


-201 


1471 


- 94 


1 satiliti":PRINT'rnpecto al planeta (V 


280 


- 34 


880 


-246 


1480 


- 7 


X.VY.VZ)" 


290 


-159 


890 


-131 


1490 


-185 


1650 PRINT: PRINT: PRINT'PULSA SPC PARA CO 


300 


-224 


900 


-221 


1500 


-131 


NTINUAR' 


310 -239 


910 


-131 


1510 


-142 


1660 IF STRIB(0)O-1 THEN 1660 


320 


- 38 


920 


-211 


1520 


-163 


1670 CLSsPRINT'Voyager: Instrucciones NS4 


330 


- 40 


930 


-206 


1530 


- 58 


■ 


340 


-159 


940 


-202 


1540 


- 58 


1680 PRINT ¡PRINT ¡PRINT" Final lente deberá 


350 


- 39 


950 


-142 


1550 


-241 


s introducir el a :PRINT'valor de la const 


360 


- 22 


960 


-140 


1560 


- 72 


ante di Niwton'sPRINT'esti paso es my i 




- 77 


970 


-140 


1570 


-173 


■portante, "sPRINT'ya que variando la var 

lábil" 




- 79 


980 


-140 


1580 


-139 




- 38 


990 


-140 


1590 


-242 


1690 PRINT'puidis variar la relación ent 




- 58 


1000 


-142 


1600 


-110 


ri'iPRINT'un punto en la cuadricula y la 




- 58 


1010 


-142 


1610 


-173 


':PRINT'porcion de espacio que represent 




-138 


1020 


-140 


1620 


-179 


a":PRINT"en la realidad" 


430 


-137 


1030 


-140 


1630 


- 86 


1700 PRINT:PRINT:PRINT'PULSA SPC PARA CO 
NTINUAR" 


440 


-140 


1040 


- 58 


1640 


-208 


450 


- 47 


1050 


-140 


1650 


-173 


1710 IF STRI6(0)O-1 THEN 1710 


460 


-248 


1060 


-144 


1660 


-219 


1720 CLSsPRINT'Voyager: Instrucciones N25 


470 


-138 


1070 


-144 


1670 


- 87 


■ 


480 


- 58 


1080 


-144 


1680 


-228 


1730 PRINT:PRINT:PRINT'La tecla Fl esta 


490 


- 58 


1090 


-143 


1690 


- 98 


habilitada para":PRINT"variar (VX,VY,VZ) 


500 


- 38 


1100 


-145 


1700 


-173 


en vuelo y la'jPRINT'tida F2 para hace 


510 


- 41 


1110 


-143 


1710 


- 13 


r la repeticion'sPRINT'del vuelo a layor 


520 


- 44 


1120 


-140 


1720 


- 88 


velocidad, pero" 


530 


- 58 


1130 


- 58 


1730 


- 53 


1740 PRINT'perderas el trazo de la orbit 


540 


- 58 


1140 


-144 


1740 


- 59 


a si':PRINT"lo haces.' 


550 


- 43 


1150 


-146 


1750 


-173 


1750 PRINT: PRINT: PRINT'PULSA SPC PARA CO 
NTINUAR" 


560 


- 46 


1160 


-148 


1760 


- 63 


570 


- 49 


1170 


-148 


1770 


-142 


1760 IF STRI6(0)O-1 THEN 1760 




- 58 


1180 


-148 






1770 RETURN 


590 
600 


- 58 
-234 


1190 
1200 


-148 
-146 


TOTAL: 
21556 



Programa 



iPor José Delgado 






He aquí un divertido juego en que tendréis que 
medir vuestra habilidad sorteando diferentes obs- 
táculos. Espectacularidad y emoción son las prin- 
cipales características de este juego. 

Por ser el juego de gran longitud indicamos las 
principales variables para que os sea mas fácil de 



VI 

O . 
P 

D i 

A 

Y 

C(K). 
M 

W 

Z(F) ! 

F 

N 

X(K): 

L(K) 

m 

c 
z 



i vidas 

comprueba si se supera el sector 
o el nivel 

■■ conectar y desconectar pantalla 
controla cursor 
■■ controla el tiempo 
= verticalidad de la lancha 
= color de obstáculos 
• metros hechos 

■ metros a efectuar 
= nivel 

■ coordinadas de piedras y lanchas 
y turistas y islas 

clase de piedra u otro obstáculo 
=joystick o cursor 
= puntos 



1 mmmimmm 

2 't sipper t 

3 't por José Delgado! 

4 'I para HSX CLUB t 

5 mmmmmim 

10 CLEAR . 

20 ON STQP5OSUB4710:STOPQN 
30 BQ8UB22M 
40 6OSUB240 

50 nunmiBi 

¿0 '| BUCLE | 
70 IMBU I 

B0 D=ST1CK(C):P=USR1(0) 

"0 A=ff+ . 5 : VP0KE6949 . A : I F A= 1 94THEN380 

100 VPQKE6912, Y 

110 VP0KE69i6,Y 

120 IFD= lTHENY=Y-9: IFY<84THENY=84 
130 IFD=5THENY=Y*9: IFY>174THENY-174 
140 IFD=3THENV=V+1: IFV>19THENV=20 
150 !FD= 7 THENV=V-1:IFV<NTHENV=N 
160 QNSPPITE6OSUB1730 
170 H=K+V:IFf1>Z(F)THEN510- 
180 FQPK=3T08 
1"0 X(K>=X(K)-V 

200 IFX(KK10THENX(K)=255:L(K)=INT(RND(1 

)t90)+84:VPOKE6912+4tK,L(K) 

210 VPQKE69l3+4tK,X(K) 

220 NEXTK 

230 GOTOB0 




| EMPEZAR A JUGAR 



240 
250 
260 

270 FQRK=3TQ8 



1 



nw rum-oiua 
280 VP0KE69l2*4tK,L<K):VP0KE69i3*4IK,X(K 



>:VP0KE6914 + 4tK,E(K)l4:VP0KE6915*4tK,C(K 

) 

290 NEXTK 

300 VP0KE6912. Y: VP0KE6913. 74: VPQKE6914, 4 
:VP0KE69i5,15 

310 VPOKE6916.Y:VPOKE6917,90:VPOKE6918,8 
: VP0KE6919. 15 

320 VPQKE6948,20:VPOKE6949,A:VPOKE6950,1 
2:VP0KE6951,1 

330 P'JTSPPITE10.(210.20),6,3 

340 IFC=0THENC$="PULSA LA BARRA ESPACIAD 

OPA'ELSECfs'PULSA EL BOTON DISPARADOR" 

350 PSET (26. 85 ) , CH: COLORIS: PRINTI1 , C$ 

360 IFSTRI5(C)=-1THEN370ELSE360 

370 LINE(20,B4)-(236,94),Cf1,BF:SOUND8,13 

: S0UND7, 33 : S0UND6. 15: SPRITEON: TIME=TI : GO 

m 

380 imniHini 

390 ' I TIME OVER I 



410 G=1:BEEP 
420 FQPF=1TO10 
430 VP0KE6951, 1 
440 VP0KE6915.i:VP0KE69l<M 
450 FORT=1TO200:NEXTT 
460 VPQKE6951.15 
470 VP0KE6«15 ( 15:VP0KE691<U5 
480 FQPT=ITO200:NEXTT 
490 NEXTR 
911 60IUII73I 
510 

520 ' | LLEBAR A NETA 

530 1 moni 

540 I=I+1:F0RK=3TÜB 

550 X(K)=X(K)-V:IFX(KX10THENX(K)=255:VP 
OKE6912+4tK,200 
560 VP0KE6913+4IK,X(K) 
570 NEXTK 

580 IFK25THEN6OTO80 
590 A=TIHE 
600 F0RT=1T025 
610 P=USR1(0) 

620 IFY>130THENY=Y-4:VPOKE6912,Y:VPOKE69 
16,Y 

630 IFY< 121THENY s Y+4: VP0KE6912, Y: VP0KE69 
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16, Y 

640 FORR=1TQ60:NEXTP 
650 NEXTT 
660 BEEP:TI=0 
670 F0RR=1T09 

680 PUTSPPITE21, í 97. Y-l ) , 1 1 , 13 
690 FORT=1TO150:NEXTT 
700 PUTSPRITE21,(97,Y*2 
710 FORT=1TO150:NEXTT 
720 NEXTR 

730 FORR=1TO1000:NEXTR 
740 > 

750 ' I COMPROBAR SECTOR o NIVEL | 

760 J 

770 O=OM:IFO=1THEN780ELSE790 
780 «="SECTQP«:GOTO800 
790 W$="NIVEL" 

800 ' — - PANTALLA DE PASE — 
810 SCREEN1 : C0L0R15. 1 f 1 : CLS 

820 L0CATE8,24:PRINT" i 

830 L0CATE8,24:PRINT' 

840 PRINTTAB(2):"i 1 

WQH-i" 

850 PRINTTAB(2); H (HAS SUPERADO ESTE ";W* 



PPINTTAB(2>;"- 

IfilH" 

870 PPINTTAB(9);"i , 

880 PRINTTABÍ9) ; " |HAS HECHO I" 
890 PPINT" r 1 1 



900 PRINT" | TIEMPO | 
LOCATEU,22:PRINTA/50; "seg. • 
910 PRINT" | 1 



1. 

920 PPINT" | PUNTOS I j'j 
L0CATE14, 22: Z»Z*W* C < lii- ( A/5f ) » ISi) : PRIN 



TZ 

930 PPINT" 1 



, ¡¡ 



940 PRINTTAB(8) ¡"FICHA TECNICA 
DEL SIGUIENTE TRAYECTO" 

950 PRINT" r , 

960 PPINT" | NIVEL | |*j 
L0CATE18, 22; IFO*l THENPRINTFELSEPRINTF+1 

970 PRINT" | 1 1« 

980 PRINT" | SECTOR | \H 
L0CATE17,22:IF0*1THENPRINT"N0CTURN0 D ELSE 
PRINT'DIURNO" 

990 PRINT" | 1 1" 

1000 PRINT" | DISTANCIA | |" 

(F);"it5."EL 

1. 



:L0CATE15,22: 
SEPRINTZ(F+l);"its. B 
1010 PRINT" \ 



1020 PRINT" | CATEGORIA | 
:L0CATE14,22:IF0=1THENPRINTKI(F)ELSEPRIN 
TKIÍF+I) 

1030 PRINT" ' ' w 

1040 FORR=1TO1500: NEXTR 

1050 L0CATE3, 0:PRINT"PULSA" : L0CATE21 , 0: P 

rint" fi >mmm 

1060 FORR=1TO710:NEXT 

1070 L0CATE3, 0: PRINT" " : L0CATE21 , 0: P 



RINT" 

1080 FORR=1TO700:NEXT 
1090 QNKEYG0SUB11 10 
1100 GOTO1050 
1110 SCREEN2 
1 120 IFO= 1THENCC= 1 ¡ CH S 12: S=8: M=0: A=30: GO 
SUB1490; GOTO40ELSE1 130 
1130 F=F+1:Q=0:6OSUB1400:GOTO40 
1140 ' mnHHHHil 
1150 » | ESCOJER NIVEL I 

H60 ' mnwni 

1170 SCREEN1 : COLORI y 1 1 1 1 i : CLS 

1180 LOCATE10,24:PRINT"WWHr 

1190 PRINTTAB(10);"| |" 

1200 PRINTTAB(10):'| NIVEL I" 

1210 PRINTTAB(10);"| |" 

1220 PRINTTABí 10) ;"■■■■' 

1230 PRINT: PRINT: PRINT 

1240 PRINTTAB(4);"1 --> PRINCIPIANTES" 

1250 PRINT 

1260 PRINTTAB(4);"2 --> APRENDICES" 
1270 PRINT 

1280 PRINTTAB(4);"3 --> AFICIONADOS B" 
1290 PRINT 

1300 PPINTTABI4);"4 --> AFICIONADOS A' 
1310 PRINT 

1320 PRINTTAB(4);"5 --> PRE-PROFESIONAL 
ES" 

1330 PRINT 

1340 PRINTTAB(4);"6 --> PROFESIONALES" 
1350 PRINT: PRINT: PRINT 

1360 PRINTTAB(5)|"EiC0ji tu catigori»" 

1370 Fi=INKEY$ 

1380 IFF$<"l"ORFi>"6"THEN1370 
1390 F=VAL(F$) 
1400 N=F+8 

1410 ' MMDMunmi 

1420 ' | INICIACION | 

1430 ' nmi 

1440 C«=2:CC«7:S»4:H=0:A«30 
1450 SCREEN2 
1460 mm 

1470 Z(1)=3100:Z(2)=3400:Z(3)=4300:Z(4)= 

4800: Z (5) =5500: Z (6»=6100 

1480 Kf ( 1 ) ="PRINCIPIANTES- : Kf (2) =" APREND 

I CES • : K$ ( 3 ) = " AF I C I ONADOS B":K$(4)='AFICI 

ONADOS A B iK$»)- B PRE-PRQFESI0. a iK$(6)> a P 

ROFES ION ALES" 

1491 F0RK*3T08 

lSff L(K) = INT(RND(DI90)+90 

1310 E(K)=INT(RND(1)$2)+S 

1321 C(K>«INT(RND(1)I13)*1»IFC(K)-40RC(K 
)=1THEN152Í 

1331 NEXTK 

1341 IFL(4)>12fTHENL(4)=12i 

1550 1*0: YM54: V*N*F; X (3) «42: X (4) *85: X (5 
)*128:X(6)=169:I(7)*212:X(8)=254 

1560 • ^mmmmmmmm 

1371 ' | PANTALLA DE JUEGO I 
1380 



1591 MJSR2(f) 

1600 COLORI, 4, CC: CLS 

1411 LINE(0,90)-(256,0),CC,BF 

1620 D$="E3R4F5E5U3E3R2E3R3E5F6U7E3R2E4D 

3E6F2E3F12R3E4U3R2F4R2F5R2E4F3R3F7R2F3F2 

R2E5RE7R2U2E7R2E3F5D2F3R2D4F7D3F3R3D2R3E 

2RE2" 

1630 E$='RU3E4U4E2U3E8F5R2F7D3R5F3R6E4RE 

4F6R2F3R2F5R4F3R3D14L259" 

1640 PSET(0,B0),CM:DRAWD$:PSET(177,77),C 

M:DRAME$ 

1650 PAINT(10,90),CM 

1660 LINE(0,0)-(256,10),12,BF 

1670 LINE(0,10)-(256,20),9,BF 

1680 LINE(0,20)-(256,36),11,BF 

1690 PSET (75, 2) , 12: COLORI : PRINTtl . SI 

PPER 

1700 PSET ( 1 v 1 2 ) , 9 : COLOR 1 5 : PR I NTi 1 , ■ Ni ve 

1";F;" Vidas";VI;" " 

1710 P=USR3(0) 
1720 RETURN 
1730 

1740 ' | EXPLOSI 
1750 

1760 SPRITEOFF 
1770 TMIHE 

1780 PUTSPRITE0,(80,Y),9,6 
1790 PUTSPRITE1, (84, Y+4) , 6, 10 
1800 SOUND0, 0: S0UND1 , 5: S0UND2, 0: S0UND3, 1 
3:SOUND4,255:SOUND5,15:SOUND6,30:SOUND7, 
: S0UND8 ,16: S0UND9 ,16: SOUND 10,16 
1810 S0UND1 1 , 0: S0UND12, 5: S0UND13, 
1820 FORR=1TO40: NEXT 
1830 SOUND12,56:SOUND13,0 
1840 FORR=1TOB00:NEXT 
1850 PUTSPRITE0, (200, 200) , 0, 
1860 PUTSPRITE1, (80, Y) ,13,7 
1870 FORR=1TO800:NEXT 
1880 PUTSPRITE1, (86, Y+6) , 10, 1 1 
1890 FORR=1TO800:NEXT 
1900 PUTSPRITE1, (200,2001,0,0 
1910 FORR=1TO1600:NEXTR 
1920 Z=Z+« 

1930 ' 

1940 ' - COMPROVAR VIDAS - 

1950 ' 

1960 VI=VI-1 

1970 IFVI=0THEN3440 

1980 1 mifiinmiini 

1990 ' | MUERTE DE LANCHA I 

2000 ' wunrararjrai 

2010 SCREEN1:C0L0R15,1,1:CLS 

2020 IFG=0THEND$="HAS MUERTO AHOGADO'ELS 

EIF6=1THEND$="SE AGOTO EL TIEHPO":G=0 

2030 LOCATE6,0:PRINT"i , 

. I S I P P E R I i 

HQM *■ 

2040 L0CATE2,4:PRINT 
MU-, I 




— 
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f 

2050 L0CATE6,7:PRINTD$ 
2061 L0CATE4 ,11: PRINT"ESTA ES TU SITUACI 
ON:" 

2070 PRINT: PRINT:PRINT" VIDAS:";VI 

20B0 PRINT* PUNT0S:';Z 

2190 PRINT" TIEMPO EMPLEADO:"; TI/50; "seg 
■ 

2100 PRINT" TIEMPO QUE FALTA: ";85-(TI/50 
>;'seg' 

2110 PRINT" HETROS RECORRIDOS: ";M 
2120 M=Z(F)-H:PRINT" HETROS QUE FALTAN: 
";MN 

2130 LOCATEB , 22 : PR I NT " PULSA F2 " 
2140 FORRMTO500:NEXTR 
2150 L0CATEB,22:PRINT" 
2160 ONKEYGOSUB,2190:KEY(2)ON 
2170 FQRRMTQ500:NEXTR 
2180 6OTO2130 
2190 6OSUB1450:GOTO40 

2200 ■ ■aanMnn 

2210 ' | LECTURA DE SPRITES I 
2220 ' ■HHHHH 
2230 POKE&HFCAB, I : KEYOFF : SCREEN 1 , 2 : COLOR 
15,0 f 0:CLS 

2240 L0CATE4, 3: PRINT" JOSE DELGADO GARCIA 
■ 

2250 L0CATE13,B:PRINT"presínta" 

2260 L0CATE6,i2:PRINT°MHHHHMU 
I 

I S I P P E R | | 

— — 1 

2270 L0CATE3,22:PRINT'--. POR FAVOR ESPE 
RE 

22B0 RESTORE4500 
2290 F0RRMT09 

2300 F0RT=1T032:READW:Y$=Y*+CHR$(N):NEXT 
T 

2310 SPRITE«(R)=Yf:Y$="" 
2320 NEXTR 
2330 FORR=10TO14 

2340 FQRT=1T0B: READH: Y$=Y$+CHR$ íl) i NEXTT 
2350 SPRITE$(R)=Y$:Y*="" 
2360 NEXTR 

2370 ' HHHM 
2380 ' | INTRODUCIR C.H. I 

2390 ' wammmmmm 

2400 RESTORE4450 
2410 FORR=60000!TO60068! 
2420 READO: POKER, 0: NEXTR 
2430 DEFUSR1=60000 ! : DEFUSR2=65: DEFUSR3=6 
8 

2440 ' — bmm^bi 
2450 ' | PANTALLA DE PRESENTACION I 
2460 ' ■■HF- 

2470 DEFINTC-Z 



2480 0PEN"GRP:"ASI1 

2490 A(1)=1000:A(2)=1000:A(3)*1000:X$(1) 
x"SIPPER":X$(2)*"SIPPER':X$(3)="SIPPER": 
Z=0 

2500 SCREEN2: COLORI 1, 15, 1:CLS 
2510 P»USR2(0) 

2520 LINE(3,3)-(252,1B8),1,BF 

2530 LINE(65,10)-(55,60),11:LINE(75,10)- 

(65,60):LINE(85,10)-(95,60):L1NE(95,10)- 

(105,60) 

2540 H$="BH55,60R10BR30R10BH50BR10R10FD3 

FD3FD3FD3FEU3EU3EU3EU3ER10BL26BD30FD3FD3 

FD3FD3FD2R11U2EU3EU3EU3EU3E" 

2550 S$*"BH105,60R36BU10L38BU11BR16R21BU 

9R5L29BU12R44BU9L48" 

2560 B$«"C10R12610R15GBL15G24L12E24L15EB 
R15E10610L1568D5R10619D8R12E24R15E8U8L9E 
4U5" 

2570 CIRCLE(138,44U6,11,5,1:CIRCLE(13B 

,44),6,11,5,1:CIRCLE(117,24),15,11,2,5:C 

IRCLE(117,24), 6,11, 2,5 

2580 LINE(161,10)-(172,30):LINE(153,11)- 

(162,35):LINE(162,35)-(153,60):LINE(153, 

60)-(163,60):LINE(163,60)-(172,45) 

2590 LINE(172,45)-(181,60):LINE(1B1,60)- 

(191,60) :LINE(191,60)-(182,35):LINE(182, 

35)-(191,10):LINE(182,10)-(172,30):LINE( 

182,10)-(191,10) 

2600 DRA«H$:PAINT(70,12),li:PAINT(B9,20) 

,11:PAINT(75,30),11 

2610 DRANS$:PAINT(125,5B),U 

2620 RM"C3L30D30R30D30L30BR45C8U60BR15C 

5R30D30L30D30U60BR45C2R30D30L30D30U60BR4 

5C10R30L30D30R30L30D30R30BR15C9U60R30D30 

L30" 

2630 F0RR=1T07 

2640 PSET ( 4 1 +R , 75+R ) , 1 : DR AKRt 
2650 NEXT 

2660 LINE(60,150)-(196,175),5,BF 
2670 L1NE(45,176)-(211,190),12,BF 
2680 LINE(220,109)-(242,142),9:LINE(212, 
109)-(234, 142) ,9:LINE(234, 142)-(242, 142) 
,9:PAINT(236,136),9 

2690 PSET(70,155),5:COLOR15:PRINT#1,"1 - 
-> CURSOR" 
2700 PSET(70,165),5:PRINTI1,"2 --> JOYS 
TICK" 

2710 PSET (55, 180) , 1 : PRINTIl , "PULSA LO QU 
E DESEES' 
2720 P=USR3(0) 

2730 PLAY " V 1 4H9990S9T 1 40O4L8EEEEL 1 66FFEL 
4DL8DDEFL4GL805CR8L804EEEEL16GFIFEL4DLBG 
GA.GL16FIGABL4GL166BA6FIEDÍEL805C.04FIL4 
GR1R1' 

2740 N$=INKEY$ 
2750 R=RND(1) 

2760 IFM<"1"ORH$>"2'THEN2740 




2770 C=VAL(W)-1 

27B0 T=200:FORR=0TO97STEP6:W-6 

2790 LINE(0,R)-(256,R+6),1,BF:LINE(0,T)- 

(256,T-6),1,BF:NEXTR 

2800 ' MHHHM 
2810 ' | PANTALLA DE MENU 
2820 

2830 BEEP 

2B40 COLOR0, 0, 0: SCREEN 1 : COLOR 1 5 , 1 , 1 : CLS 
2850 RESTORE4660: F0RR=792T0799: READQ: VPO 
KER,Q:NEXTR 

2860 RESTORE4660: F0RR=872T0879: READQ: VPO 
KER Q: NEXTR 

2870 RESTORE4660:FORR=960TO967:READQ:VPO 

KER, Q: NEXTR 

2B80 RESTORE4670 

2890 F0RR»8T047 

2900 READQ: VPOKER.Q 

2910 NEXTR 

2920 T=240:SOUND0,T:SOUND3. 14 
2930 L0CATE6,24:PRINT"cíxcixcíxcixcixci" 
2940 T=T-9:SOUND0,T 
2950 PRINTTAB(6);"i x" 
2960 T=T-9:SOUND0,T 
2970 PRINTTAB(6);"x c" 
2980 T=T-9:SOUND0.T 
2990 PRINTTAB(6);"c •" 
3000 M-9:SOUND0,T 
3010 PRINTTAB(6);"ixcixcixcixcíxcix" 
3020 T=T-9:SOUND0,T 
3030 PRINT:T=T-9:SOUND0,T 
3040 PRINT:T=T-9:SOUND0,T 

3050 PRINTTAB(9):"i 1 

3060 T=T-9:SOUND0.T 
3070 PRINTTABÍ?) ;" I MENU i 
3080 T=T-9:SOUND0,T 
3090 PRINTTAB (9) ; " 1 1 






— 



3100 T=T-9:SOUND0,T 
3110 PRINT:T=T-9:SOUND0,T 
3120 PRINTTAB (8) : "INSTRUCCIONES" 
3130 T=T-9:SOUND0,T 
3140 PRINT:T=T-S:SOUNDfl,T 
3150 PRINTTAB (8) ; "EL JUE60" 
3160 T=T-9:SOUND0,T 
3170 PRINT:T=T-9;SOUND0,T 
3180 PRINTTAB (8); "LOS MEJORES" 
3190 T=T-9:SOUND0,T 
3200 PRINT:T=T-9:SOUND0,T 
3210 PRINT:T=T-9:SOUND0,T 
3220 PRINT:T=T-9:SOUND0.T 
3230 PRINT:T=T-9:SOUND0,T 
3240 PRINT:T=T-9:SOUND0,T 
3250 IFC=0THENPRINTTAB(2);"ESCOJE LO QUE 
DESEES CON < CURSOR > Y < RETURN > 
":GOTO3270 

3260 PRINTTAB(2);"ESC0JE LO QUE DESEES C 

ON < JOYSTICK > Y < DISPARO >" 

3270 ' — - ESCOJER OPCION -— 

3280 BEEP:T=87 

3290 D=STICK(0):P=STICK(1) 

3300 PUTSPRITE12.(66,T),11,12 

3310 IFD=10RP=1THENT=T-16: IFT<87THENT=87 

3320 IFD=50RPs5THENT=M6:IFT>119THENT=l 

19 

3330 IFINKEY$=CHR$(13)0R STRIB (0 =- 1THEN 
3410 

3340 VPOKE8204, 241 : VPOKE8205, 129: VP0KE82 
07,49 

3350 FORR=1TO100:NEXT 

3360 VPOKE8204, 49: VPOKE8205, 241 : VPOKE820 

7,129 

3370 FORR=1TO100:NEXT 

3380 VPOKE8204.129:VPOKE8205,49:VPOKE820 

7,241 

3390 FORR=1TC100:NEXT 

3400 BOTO3290 

3410 IF T=87THEN4230 

3420 IFT=103THENVI=5:TI=0:6OSUB1140:GOTO- 




40 

3430 IFT=U9THEN37B0 
3440 

3450 '| MAXIMAS PUNTUACIONES I 

3460 nmmiiiuiiH ihwi 

3470 ' 

3480 ' - COMPROBAR PUNTUACION - . 

3490 ' 

3500 GOSUB4030 

3510 SCREEN0 : COLOR 1 S . B : CLS 

3520 IFZ>A!3)THEN3530EL3E3780 

3530 ' 

3540 ' - INTRODUCIR NOMBRE - 

3550 5 

3560 LOCATE2,0:PRIN TB BB I lili 

IIH Wl I III 
I III II III 

II UU I IHI IM II 

mi iiii i 

3570 L0CATE2,5:PP.INT" | | | | 

iii mi i i i 
im i r 

3580 L0CATE3, B: PRINT n ENHOPABUENA HAS 
SEGUIDO UNA DE LAS TRES MEJORES 
TUACIONES" 

3590 LOCATE12,10:PPINT"n i — \ 

|U-4 L_/ 

N / 



Lufi 

PUN 



3600 BEEP:PLAY"V13Tl30M6500SI0O4L4GL16Of 
C04B05CDL404GL166F+GAL4EL166FEDL4EL8CR8L 
4DL16GF*6AL4DL16AG*A05CL404BL16ABC5CC*L4 
DLB046R4R1" 

3610 LOCATE?, 12: PPINT" INTRODUCE TU NQHBF 
E" 

3620 L0CATE5, 14: PPINT" i - t 

m ,-sL0CATE5,15:PRINT- 1 | 

r:L0CATE5.16:PPINT D " 

WQG 

3630 LDCATE6,15:PRINTZ 

3640 Ut=INKEY*:Q*="':Kf=":L0CATE15.15 

3650 F0RRMT015 

3660 K$=INPUT$(1) 

3670 IFK$=CHR$(8)0RK$=CHR$(9)0RK$=CHR$(1 
1 ) ORK$=CHR$ (18) ORKf =CHR$ ( 28) ORK$=CHR$ (29 
) ORK*=CHR$ ( 30 ) ORK$=CHR$ (31) ORK$=CHR* ( 1 27 
>THENLOCATE15,!5:PRINT" ": 
GOTO3640 

3680 IFK$=CHR$(13)THEN3740 
3690 IFK$O--THEN3710 
3700 GOTOT170 
3710 PRINTKI; 
3720 Q$=Q$+K$ 
3730 NEXTR 

3740 FORR=1TO500:NEXTR 

3750 IFZ>A(1)THENA(3)*A(2):X«(3)=X$(2):A 

(2)=A(1):X$(2)=XI(1):A(1)=Z:X$(1)=Q<:G0T 

03780 

3760 IFZ>A(2)THENA(3)=A(2):X$(3)=X$(2):A 

(2):Z:Xt(2):Q$:60T0378f 

3770 IFZ >A (3) THENA (3) =Z¡ X*(3) =Q$: 60T0378 



3780 ' ■IHIHIWWI 

3790 ' | PANTALLA DE LOS MEJORES I 
3800 



3810 SCREEN1:C0L0R15, 1, IiCLS 

3820 RESTORE4660: F0RR=792T0799: READQ: VPO 

KER,Q: NEXTR -' 

3830 RESTORE4660: F0RR=872T0879: READQ: VPO 
KER,9:NEXTR 

3840 RESTORE4660: FQRR=960TO967: READQ: VPO 
KER.Q: NEXTR 

3850 RESTORE 4670: F0RR S BT047: READQ: VPOKE 
R, Q: NEXTR 

3860 L0CATE6,i:PRlNT'i 

3870 L0CATE6,2:PRINT'| |« 



3880 L0CATE6,3:PRINT" i '■ 

3890 L0CATE4,6:PRINT'L OS MEJORE 
S" 

3900 L0CATE2,8:PRINT"cixcixcixcixcixcixc 

BXCIXC* 

3910 PRINTTAB(2);"«":PRINTTAB(2);'x":PRI 
NTTAB(2) ;-c":PRINTTAB(2) ;"«':PRINTTAB(2) 
;V¡PRINTTAB(2) ; , c , :PRINTTAB(2) ; VsPRI 
NTTAB(2);"x":PRINTTAB(2);"c":PRINTTAB(2) 
jV 

3920 L0CATE26, 9¡ PRINTV : L0CATE26: PRINT" 

x":L0CATE26:PRINT"c"¡L0CATE26:PRINTV:L 

0CATE26: PRlNT'x - : L0CATE26: PRINT"c ' : LOCAT 

E26:PRINTV:L0CATE26:PRINTV:L0CATE26: 

PRINT-c":L0CATE26:PRINT"«- 

3930 L0CATE2,18:PRINT"xcixcixcixcixcixci 

XCIXCIX* 

3940 PIM:F0RRM1T015STEP2:PI=PI*1¡L0CAT 
E3,R:PRINTA(PI):L0CATEU,R:PRINTX$(PI):N 
EXTR 

3950 IFC=0THENLOCATE5,22:PRINT"PRESIONA 

EL ESPACIO" ELSE I FC* 1 THENLOC ATE! f 22tPRINT 

"PRESIONA EL BOTON DISPARADOR" 

3960 VPOKE8204,241:VPOKE8205,129:VPOKE82 

•7,49 

3970 F0RR=1T02M:NEXT 

3980 VPOKEB204 , 49: VP0KE82I5, 24 1 : VPOKE820 

7,129 

3990 F0RR=1T02M:NEXT 

4000 VPOKE8204, 129: VP0KE82Í5, 49: VP0KE82Í 

7,241 

4010 FORR=1TO200:NEXT 

4020 IFSTRI6(C)=-1MNZ=0:6OTQ2800ELSE39 



4030 
4040 
4050 



4060 SCREEN2: COLORIS, 1 f 1 : CLS 
4070 P=USR2(0) 
4080 F0RR-1T07 

4090 PSET(4l+R,15*R),l:DRAHRI 
4100 NEXT 

4110 LINE Í22#, 49) - (242, B2) , 9: LINE (212, 49 
)-(234,82),9:LINE(234,82)-(242,82),9iPAI 
NT(236,76),9 

4120 PSET(140,110),4:DRANBI 
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4130 PAINTÜ26, 142) , 10: PAINT ( 1 15, 132) , 10 
:PAINT(150,114),lf 

4140 PSET(100,170),1:COLOR15:PRINTI1,'LO 
SIENTO' 

4150 PSETÍ35, 180) , 1 : C0L0R15: PRINTt 1 , 'SE 
TERMINARON LAS VIDAS' 
4160 P=USR3<0) 

4170 BEEP: PLAY'V14T140LBO4CL16FFFGL4FR8 
L8CL16FFFGL4FV13RBL8FL16F6ABL405CR8V12L8 
CL1604BBB05CL904AA6L8ABL966FL86AFFDDL4CR 
8V11L8CL16FFFGL4AR8L8BL16SG6AL4FR8L8CL16 
FFFGL4FRBV10L8C" 

4180 PLAY"L16FFFGL4FR8L8FL16FGABL405CR8V 
9L8DL1604BBB05CL904AAGL8ABL96GFL86AFFDDL 
4CR8V8L8CL16FFFGL4AR8V7L8BL16FFF6L2FL8FR 
8R4" 

4190 T=256:F0RR=lT0126STEP6:T=T-6 

(T*6,194),i|bF 
4210 NEXTR 
4220 RETURN 

4230 ' ■■■■■■■■ 
4240 ' | INSTRUCCIONES I 
4250 ' BMHMM 

4260 SCREEN1 : C0L0R15, 1 , 1: CLS 
4270 PRINTT AB (4);'... INSTRUCCIONES •••' 
4280 PRINT' SIPPER es un juego de habi- 
lidad y reflejos.' 

4290 PRINT" Tu lisión es conducir tu 
lancha totora atraves de pe- ligrosos Ti 
seos que eiergen de las aguas. 1 
4300 PRINT" Y en un segundo recorrido 
(nocturno) tendrás que tener cuidado con 

los turistas que surcan las aguas con s 
us lan-chas entre afrodisiacas islas con 

pal leras." 

4311 PRINT 1 Los recorridos tienen una 
distancia deteriinada según el nivel es 
cogido y han de ser realizados antes d 
e que se agote tu tieipo." 
4320 PRINT" Puedes esquivar los peligros 
citados .acelerar y frenar con las tec 
lis de cursor o joyitick. ■ 







4330 T«ll IFC*0THENLOCATE8,22:PRINT"PULSA 
ESPACI0'ELSEL0CATE6,22:PRINT'PULSA DISP 
ARADOR' ' 
4340 T«T*1 

4350 PUTSPRITE23, (T, 176) ,7, UPUTSPRITE24 
,(T+16,176),7,2 

4360 IFSTRI6(C)=-1THEN4370ELSE4340 

4370 L0CATE6, 22: PRINT' 
■ 

4380 F0RR=1T06 

4390 PUTSPRITE13, (T+24, 175) ,11,13 

4400 FORP=1TO250:NEXTP 

4410 PUTSPRITE13, (T+24, 178) , 11, 14 

4420 FORP=1TO250:NEXTP 

4430 NEXTR 

4441 6OTO2810 

4450 ' mmmmmmmm 

4460 ' | DATOS DE CU. | 

4470 ' HHHi 

4480 DATA33, 0, 24, 205, 139, 234, 33, 96, 231 , 2 

21,33,96,231,6,24,197,6,31,126,245,35,12 

6,221,119,0,221,35,16,247,241,221,119,0, 

35 

4490 DATA221 , 35, 193, 16, 232, 205, 152, 234, 2 

01,1,0,3,33,0,24,17,96,231,205,89,0,201, 

1,0,3,17,0,24,33,96,231,205,92,0,201 

4500 ' ■■■■■ 

4510 ' | DATOS DE SPRITES I 

4520 ' ■■■■■■■■■ 

4530 DATA!, 0,1,0,1,0, 128,3, 163, 19,67, 168 

,64,148,2,0,0,0,0,0,0,0,0,128,128,128,25 

5,255,255,127,127,0 

4540 DATA0,0,0,0,0,0,0,252,13I,129,255,2 
55,255,255,254,0,f,f,f,f,f,f,0,f,0,0,252 
,248,224, 128,0,0 

4550 DATAIS, 49, 255, 128, 0, 249, 33, 37, 165, 1 
65, 165, 165, 128, 255, 49, 15, 240, 140,255, 1,0 
, 23, 180, 84, 86, 20, 20, 23, 0, 255, 140, 240 
4560 DATA0,0,0,0,2,2,15,9,30,54,31,31,9, 
14,1,1,1, 14,50, 255,235, 173, 158, 250, 190, 1 
88,254,74,118,204,240,112 . 
4570 DATA0,0,0,0,0,2,7,47,222,239,212,12 
7,118,29,30,0,0,0,0,0,0,0,96,208,253,165 



,254,244,220,240,0,0 

4580 DATA8 1,3, 23, 64, 0,1 6, 16, 128, 16, 0,16, 

153,128,2,8,128,1,100,168,44,4,1,4,4,0,1 

,8,130,144,52,128,17 

4590 DATA2, 0,0, 68, 0,8, 1,0, 0,34, 0,0, 0,8, 6 
4,0,0,2,0,32,2,0,0,8,0,64,0,10,0,128,20, 
• 

4600 DATA0,0,0,0,0, 0,0,0,0,3,4,8,255, 127 
,63,31,0,0,0,0,0,0,0,0,0,224,35,35,255,2 

54,254,252 

4610 DATA1.3, 15, 14,2,0, 1,14,30, 124,112,1 

20,124,62,15,1,240,248,252,220,204,192,1 

92, 248, 222, 207, 199, 199, 206, 30, 248, 216 

4620 DATA42, 156, 55, 158, 108, 181, 94, 165,2, 

32,0,10,0,32,4,0,8,4,2,255,2,4,8,0,25,25 

,2,124,24,24,20,20,24,24,0,126,24,24,20, 

20 

4630 ' HHWni 
4640 ' | DATAS DE LETRAS I 
4650 ' IHHttMM 

4660 DATA24, 126, 126,255,255, 126, 126,24 

4670 DATA60, 124, 96, 120, 60, 12, 124, 120, 24, 

24,0,24,24,24,24,24,120,124,108,124,120, 

96,96,96,62,62,48,60,60,48,62,62,62,63,5 

1,63,62,62,55,51 

4680 ' HUÍ 

4690 ' | FIN | 

4700 ' HH 

4710 POKEltHFCAB, 0: SCREEN0: C0L0R15, 4, 4: CL 
S 

4720 PRINTTAB (9) ; " MMMW 

4730 PRINTTAB (9) ; " I | 
4740 PRINTTAB (9) ;"■ SIPPER I 
4750 PRINTTAB (9); "■■ M 
4760 PRINTTAB(9);"| by JOSE DELGADO | 
4770 PRINTTAB (9) ; ■■■ 
4780 PRINTTAB(9)|" | HADE IN ALCOY I 
4790 PRINTTAB!?);" ■■■■EMU 9 
4800 PRINT: PRINT: PRINTFRE (0) ; 1 bytes li 
bres" 

4810 BEEP: END 
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KONAMI TE PRESENTA EL EXITO MAS 



PARA 

EN TODA EUROPA. 






UNA VEZ INTRODUCIDO EN EL CUARTEL GENERAL, ESCAPA DE LAS BOMBAS, MORTEROS 
Y DEMAS ATAQUES PARA LOGRAR LIBERAR 
PRESTA ATENCION A PROXIMAS NOTICIAS .. . 
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Por M.A. de la ( 



RELIEVE EN 
TRES DIMENSIONES 



Pocas veces habíamos podido ver 
gráficas tridimensionales sobre los 
MSX. Este programa destaca toda 
la potencia gráfica de los ordena- 
dores del estándar. 



— 



lf ' 

21 U RELIEVE EN TRES DIMENSIONES tt 
30 ' 

41 'POR M DE LA OSA PARA MSX CLUB 
50 ' 
61 ' 
70 ' 

80 0PEN-6RP: - AS II 
90 I=.78539:F=3.92699 
100 SCREEN 2 
110 ' 

120 'ttt PERSPECTIVA DEL RELIEVE IH 
130 ' 

140 COLOR 15,4,4 
150 FOR Y*60 TO 84 STEP 2 
160 CIRCLE(125,Y),Y,15 
170 NEXT Y 

180 CIRCLE(125,60),50,15 
190.CIRCLE(125,62), 40,15 
200 CIRCLE(125,64), 35,15 
210 CIRCLE(125,66),30,15 
220 ' 
230 ' 

240 CIRCLE(125,62), 25,15 
250 CIRCLE(125,60), 20,15 
260 CIRCLE(125,5B),15,15 
270 CIRCLE(125,56), 10,15 
280 CIRCLE(125,54),6,15 
290 CIRCLE(125,52),4,15 
300 CIRCLE(125,50),2,15 
310 LINE(30,180)-(230,195),15,B 
320 PRESETÍ40, 182) :PRINTI1, 'perspectiva 
del relieve" 
330 60SUB 1050 

340 LINE(30,180)-(230,195),4,BF 
350 ' 

360 'tlHtl CORTE TRANSVERSAL 
370 ' 

380 FOR Y*60 TO 84 STEP 2 
390 CIRCLE(125,Y),Y,4,F f I 
400 NEXT Y 

410 CIRCLE(125,60),50,4,F,I 
420 CIRCLE(125,62),40,4,F,I 
430 CIRCLE(125,64),35,4,F,I 
440 CIRCLE(125 I 66),30,4,F,I 
450 ' 

460 CIRCLE(125,62),25,4,F,I 




, "corte 



470 CIRCLE(125,60),20,4,F,I 
480 CIRCLE(125,58),15,4,F,I 
490 CIRCLE(125,56),10,4,F,I 
500 CIRCLE(125,54),6,4,F,I 
510 CIRCLE(125,52),4,4,F,I 
520 CIRCLE(125,50),2,4,F,I 
530 PSET(120,120) 
540 DRAWC15E20F15E12F12E15F20L94 

mí' 

570 60SUB 1050 
580 ' 

590 'imttttl VISTA AEREA tttltltllt 
600 ' 

610 CLS 

620 FOR Y*60 TO 84 STEP 2 
630 CIRCLE(125,90 ),Y,15 
640 NEXT Y 

650 CIRCLE(125,90),50,15 
660 CIRCLE(125,90),40,15 
670 CIRCLE(125,90), 35,15 



ransv 



690 

700 ' 

710 CIRCLE(125,90),25,15 
720 CIRCLE(125,90), 20,15 
730 CIRCLE(125,90),15,15 
740 CIRCLE(125,90), 10,15 
750 CIRCLE(125,90),6,15 
760 CIRCLE(125,90),4,15 
770 

_ 



780 LINE(30,180)-(230,195),15,B 

790 PRESET(70, 182) -.PRINTI1, "vista de paj 

aro' 

800 GOSUB 1050 

810 LINE(30,180)-(230,195),4,BF 
820 ' 

830 'tttttmtM Fl 
840 ' 

850 SCREEN 2 

860 FOR Y*60 TO 84 STEP 2 
870 CIRCLE(125,Y),Y,15,,,.l 
880 NEXT Y 

890 CIRCLE(125,60), 50,15,,, .1 
900 CIRCLE(125,62),40,15,,,.l 
910 CIRCLE(125,64),35,15,,,.l 
920 CIRCLE(125,66),30,15,,,.l 
930 ' 

940 CIRCLE(125,62), 25,15,,, .1 

950 CIRCLE(125,60),20,15,,,.l 

960 CIRCLE(125,58),15,15,,,.l 

970 CIRCLE(125,56), 10,15,,,. 1 

980 CIRCLE(125,54),6,15,,,.l 

990 CIRCLE(125,52),4,15,„.l 

1000 CIRCLE(125,50),2,15,,,.l 

1010 LINE(30,180)-(230,195),15,B 

1020 PRESETÍ60, 182) iPRINTtl, "frente del 

relieve* 

1030 GOSUB 1050 

1040 GOTO 1040 

1050 FOR X»0 TO 4000jNEXTsRETURN 
1060 END 
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de listados 



i Relieve en tres dimensiones, i 



m 


-216 


190 


-191 


280 


-151 


370 


- 58 


460 


-142 


550 


- 10 


640 


-220 


730 


-194 


820 


- 58 


910 


-173 


110 


- 58 


200 


-188 


290 


-147 


380 


- 64 


470 


-135 


560 


-146 


650 


-229 


740 


-189 


830 


- 58 


920 


-170 


120 


- 58 


210 


-183 


300 


-143 


390 


-203 


480 


-128 


570 


-185 


660 


-219 


750 


-187 


840 


- 58 


930 


- 58 


130 


- 58 


220 


- 58 


310 


- 10 


400 


-220 


490 


-121 


580 


- 58 


670 


-214 


760 


-185 


850 


-216 


940 


-161 


140 


- 93 


230 


- 58 


320 


-115 


410 


-165 


500 


-117 


590 


- 58 


680 


-209 


770 


-183 


860 


- 64 


950 


-154 


150 


- 64 


240 


-176 


330 


-185 


420 


-157 


510 


-•13 


600 


- 58 


690 


- 58 


780 


- 10 


870 


-222 


960 


-147 


160 


-237 


250 


-y.9 


340 


- 71 


430 


-154 


520 


-109 


610 


-159 


700 


- 58 


790 


- 55 


880 


-220 


970 


-140 


170 


-220 


260 


-162 


350 


- 58 


440 


-151 


530 


- 77 


620 


- 64 


710 


-204 


800 


-185 


890 


-184 


980 


-136 


190 


-1"9 


270 


-155 


360 


- 5B 


450 


- 58 


5*0 


- 91 


630 














-176 


990 


-132 



1000 -128 
1010 - 10 
1020 -101 
1030 -185 
1040 -171 
1051 - 3 
1060 -129 
TOTAL: 
13671 




N?Ma 4 - 475 PTAS. Ni» 5 a 8 - 475 PTAS. N? 9 y 10 - 300 PTAS. N? 11 - 175 PTAS 

urna 



N? 12 - 175 PTAS. 



N? 13 - 175 PTAS. 





I i 



W 

Ti 



N? 14 - 175 PTAS. N? 15 - 175 PTAS. 



ms xciub 



IWMBCeiKU gO CE MiNl PROGRAM AS 

N? 16 y 17 - 350 PTAS. N? 18 - 175 PTAS. 




nucen por 7 ^^^H 
ordbuoor | 



N? 19 - 175 PTAS. 




• 275 PTAS. 



SOjWCM 



N? 20 - 175 








¡SI TE HACE FALTA ALGUN NUMERO DE 




PIDELO HOY MISMO! 



Para contar con la más completa colección de programas de MSX sólo tienes que recortar o fotocopiar el cu- 
pon y dirigirlo a Dpto. Suscripciones MSX CLUB DE PROGRAMAS. Roca i Batlle, 10-12. 08023 Barcelona. 



BOLETIN DE PEDIDO 



Sí, deseo recibir hoy mismo los números de MSX CLUB DE PROGRAMAS, libre de 

gastos de envío, por lo que adjunto talón n.° del Banco/Caja 

^OMB^E ^APELLIDOS * ' MANHA1TAN TRANSFER, S. A . 

calle n.o ZZZ'l'^D^ZZZ'ZZIZZr. 

[ DP PROVINCIA TEL 
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rama i 



- 



— 



i Por Luis Pardillo 



DATOS DE 

ELEMENTOS QUIMICOS 



Este interesante programa edu- 
cativo, especialmente adaptado a 
los niveles de BUP y COU os pue- 
de ahorrar fácilmente muchas ho- 
ras sobre los libros. 



10 'smmmmtmmmmtt 

20 '! DATOS ELEMENTOS QUIMICOS I 
30 'I por $ 

40 't LUIS PARDILLO VELA t 
50 '! -TENERIFE 1-9-1986- t 
60 '$ PARA HSX-CLUB I 

70 fitttimmtmmtmttm 

80 KEY OFF 
90 CLS 
100 SCREEN 
110 COLOR 

120 PRINT " DATOS DE LOS ELEMENTOS QUIH 
ICOS' 

130 PRINT " =========================== 

====• 

140 LOCATE0,5 

150 PRINT 'SI CONOCES EL NOMBRE DEL ELEH 
ENTO ES-CRIBELO Y LUE60 PULSA <RETURN>." 
¡PRINT*" 

160 PRINT "SI SOLO SABES EL NUMERO ATOHI 
CO PUL- SA LA LETRA <n> Y LUEGO <RETURN> 
. 'SPRINT" 

170 PRINT -SI SOLO SABES EL SIMBOLO PULS 

A LA LE-TRA <s> Y LUEGO <RETURN> 

180 LOCATE 0,15:PRINT"— Usa letras lin 

usculas excepto en la priiera letr 

a del silbólo ~" : PRINT" PRINT" • 
190 ' 

200 ' reconocimiento del eleiento 

210 ' 

220 PRINT "-Noibre del eleiento"; 

230 2=0 
240 INPUT N$ 

250 IF N$="yodo" THEN N$="iodo" 

260 IF N$="n" THEN 60SUB 2590:BOTO 350 

270 IF N$="s" THEN GOSUB 2650:6OTO 450 

280 CLS 

290 RESTORE 

300 Z=Z*1 

310 IF ZM04 THEN PRINT "LO SIENTO NO C 
0N0ZCO ESE ";N$:PRINT "SI QUIERES CONSUL 
TAR OTRO PULSA <F5>.":60T0 2750 
320 READ NOH* 

330 IF N0H$=N$ THEN 60T0 350 

340 GOTO 300 

350 RESTORE 420 

360 FOR 1=1 TO Z : READ S$ 

370 NEXT I 




i . y i i Si 

W €# i 



380 DATA hidrogeno, helio, litio, berilio, b 
oro, carbono, nitrógeno, oxigeno, flúor, neón 
, sodio, iagnesio,aluiinio, silicio, fosforo 
.azufre, cloro, argón, potasio, calcio, escan 
di o, titanio, vanadio, croio,ianganeso,hier 
ro, cobalto, niquel 

390 DATA cobre, cinc, galio, gerianio,arsen 

ico,selenio,broio,cripton,rubidio,estron 

ció, itrio, circonio, ni obio,iolibdeno,tecn 

ecio,rutenio,rodio,paladio,plata,cadiio, 

indio, estaño, antiionio, teluro 

400 DATA iodo, xenón, cesio, bario, lantano, 

cerio,praseodiiio,neodiiio,proietio,saia 

no, europio, gadolinio, terbio,disprosio,h 

oliio,erbio,tulio,iterbio,lutecio,hafnio 

, tántalo, Nolfraiio,reni o, osiio, ir idio,pl 

atino, oro, aercurio, talio 

410 DATA ploio,bisiuto,polonio,astato,ra 

don, f rancio, radio, actinio, torio, protoact 

inio, uranio, neptunio, plutonio, aiericio,c 

urio,berkelio, cal iforni o, einstenio, ferii 

o,iendelevio,nobelio,laurencio,kurtschat 

omío 

420 DATA H,He,Li,Be,B,C,N,0,F,Ne,Na,Mg,A 

l,Si,P,S,Cl,Ar,K,Ca,Sc,Ti,V,Cr,Hn,Fe,Co, 

Ni,Cu,Zn,Ga,6e,As,Se,Br,Kr,Rb,Sr,Y,Zr,Nb 

,Ho,Tc,Ru,Rh,Pd,Ag,Cd,In,Sn,Sb,Te,I,Xe,C 

s,Ba,La,Ce,Pr,Nd,Pi,Si 

430 DATA Eu,Gd,Tb,Dy,Ho,Er,Ti,Yb,Lu,Hf,T 

a,N,Re,Os,Ir,Pt,Au,Hg,Tl,Pb,Bi,Po,At,Rn, 

Fr,Ra,Ac,Th,Pa,U,Np,Pu,Ai,Ci,Bk,Cf,Es,Fi 

,Hd,No,Lr,Ku 

440 CLS :BEEP 

450 PRINT "-Noibre del eleiento: ";N0H$ 



460 PRINT""!PRINT '-Siibolo:"|8l 
470 PRINT"'sPRINT "-Su nuiero atoiico es 
el";Z 
480 ' 

490 ' valencias 
500 ' 

510 PRINT "':PR1NT"-Valencia(s)= , 5 
520 IF M OR Z=3 OR l*\t OR 2=19 OR Z=3 
7 OR 2=55 OR 2=87 OR 2=47 THEN PRINT" l" 
530 IF ZM OR 1*12 OR Z=20 OR Z>38 OR Z« 
56 OR Z=88 OR 2=30 OR 2=48 THEN PRINT"2" 
540 IF Z=21 OR Z=39 OR Z=7i OR Z=103 OR 
Z= 1 3 OR Z=3 1 OR Z=49 OR 2=60 OR 2=61 OR 
2=64 OR Z=66 OR 2=67 OR Z=68 OR Z=89 OR 
2=96 OR Z=9B OR 2=5 OR 2=57 THEN PRINT'3 

550 IF Z=40 OR 2=72 OR 2=90 OR 2=14 OR Z 

=32 THEN PRINT'4 B 

560 IF 2=73 THEN PRINT'5" 

570 IF 2=2 OR Z=10 OR 2=18 OR Z=36 OR 2= 

54 OR Z=86 THEN PRINT"0" 

580 IF 2=50 OR 2=82 OR 2=84 OR 2=78 OR Z 

=46 THEN PRINT'2,4" 

590 IF 2=26 OR 2=27 OR 2=28 OR 2=63 OR 2 

«62 OR 2=70 OR 2=69 THEN PRINT'2,3' 

600 IF 2=44 OR 2=76 THEN PRINT'2,3,4,6,8 
■ 

610 IF 2=15 OR 2=33 OR 2=51 THEN PRINT"- 
3,3,5" 

620 IF 2MI OR 2=83 THEN PRINT'3, 5" 

630 IF 2=29 OR Z=80 THEN PRINT'1,2" 

640 IF Z=79 OR 2=81 THEN PRINT'1,3" 

650 IF 2=22 OR 2=65 OR 2=58 OR 2-59 OR 2 

=97 THEN PRINT'3,4" 

660 IF 2=92 OR 2=93 OR 2=94 OR 2=95 THEN 
PRINT'3,4,5,6" 

670 IF 2=91 THEN PRINT"4,5" 

680 IF 2=42 OR 2=74 THEN PRINT'2,3,4,5,6 

690 IF 2=23 THEN PRINT"2,3,4,5" 

700 IF 2=24 THEN PRINT'2,3,6" 

710 IF 2=25 THEN PRINT'2,3,4,6,7" 

720 IF 2=43 THEN PRINT'7" 

730 IF 2=6 THEN PRINT"-4,4,2" 

740 IF 2=7 THEN PRINT'-3,3,2,4,3" 

750 IF 2=16 OR 2=34 OR 2=52 THEN PRINT*- 

2,2,4,6' 

760 IF 2=17 OR 2=85 THEN PRINT"-1, 1,3,5, 
7" 
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770 IF Z=35 THEN PRINT'-1,1,5' 
780 IF Z=53 THEN PRINT"- 1, 1,5,7" 
790 IF Z=8 THEN PRINT"-2" 
810 IF Z=9 THEN PRINT'-l" 
810 IF Z-45 THEN PRINT'2,3,4" 
820 IF Z=77 THEN PRINT'2,3,4, 6' 
830 IF Z*75 THEN PRINT'2,4,6,7' 
840 PR1NT »■ 
850 ' 

860 ' configuración electrónica 
870 ' 

880 PRINT '-Su configur 
es;':PRINT'":BEEP 
890 RESTORE 990:B=0:R=0 
900 READ C$ 
910 V$=HIDl(Cl,2,l) 
920 IF V$='s' THEN B=B*2:A=2 
930 IF Vl='p' THEN B=B+6:A=6 
940 IF V$='d' THEN B=B*10:A=10 
950 IF Vff THEN B=B*14:A=14 
960 IF B<Z THEN PRINT 
900 

970 IF B>Z THEN 1000 
980 IF B=Z THEN PRINT C$:60T0 1060 
990 DATA Is2,2s2,2p6,3s2,3p6,4s2,3dl0,4p 
»6,5s2,4dl0,5p6,6s2,4fl4,5dl0,6p6,7s2,5fl 
4,6dl0 
1000 B=B-A 

1010 R=R+1:B=B+1:R$=HID*(C$,1,2) 

1020 IF B=Z THEN PRINT R$;R ELSE GOTO 10 

1030 ' 

1040 ' periodo, grupo y carácter 
1050 ' 

1060 PRINT ":PRINT'-Pertenece ahPeriod 

= 

1070 IF Z<3 THEN PRINT'l' 
1080 IF Z<11 AND Z>2 THEN PRINT'2' 
1090 IF Z<19 AND Z>10 THEN PRINT'3' 
1100 IF Z<37 AND Z>18 THEN PRINT'4" 
1110 IF Z<55 AND Z>36 THEN PRINT"5" 
1120 IF Z<87 AND Z>54 THEN PRINT'6" 
1130 IF Z<112 AND Z>86 THEN PRINT'7' 
1140 IF M OR Z=3 OR Z*U OR Z«19 OR Z= 
37 OR Z=55 OR Z=87 THEN 60SUB 2760: PRINT 
" I' 

1150 IF ZM OR Z=12 OR Z=20 OR Z=38 OR Z 

=56 OR Z=88 THEN 60SUB 2760:PRINT" II' 

1160 IF Z<31 AND Z>20 THEN GOSUB 2760:PR 

INT Z-20;'de transición' 

1170 IF Z>38 AND Z<49 THEN GOSUB 2760:PR 

INT Z-38;'de transición' 

1180 IF Z>70 AND Z<81 THEN GOSUB 2760»PR 

INT Z-70;"de transición' 

1190 IF Z>56 AND Z<71 THEN GOSUB 2760¡PR 

INT' de lantanidos" 

1200 IF Z>88 AND Z<103 THEN GOSUB 27601 P 
RINT' de actinidoi" 

1210 IF Z*5 OR Z-13 OR Z-31 OR ZM9 OR Z 
=81 THEN GOSUB 2760:PRINT ' III" 



1220 IF Z=6 OR Z=14 OR Z=32 OR Z=50 OR Z 

=82 THEN GOSUB 2760:PRINT' IV 

1230 IF Z=7 OR Z=15 OR Z=33 OR Z=51 OR Z 

=83 THEN GOSUB 2760: PRINT ' V 

1240 IF Z=8 OR Z=16 OR Z=34 OR Z=52 OR Z 

=84 THEN GOSUB 2760:PRINT ' VI" 

1250 IF Z=9 OR Z=17 OR Z*35 OR Z=53 OR Z 

=85 THEN GOSUB 2760:PRINT' VII' 

1260 IF Z=2 OR Z=10 OR Z=18 OR Z=36 OR Z 

=54 OR Z=86 THEN GOSUB 2760:PRINT' VIII' 

1270 IF Z>102 THEN GOSUB 2760:PRINT Z-10 

2; "de transición' 

1280 PRINT " 

1290 IF Z=2 OR Z=10 OR Z=18 OR Z=36 OR Z 
=54 OR Z=86 THEN PRINT "-Es un gas noble 
': 60T0 1360 

1300 IF Z-l OR Z>4 AND Z<10 OR Z>13 AND 
Z<18 OR Z>32 AND Z<36 OR Z=52 OR Z=53 OR 
Z=85 THEN PRINT '-Es un no ietal':60T0 
1360 

1310 PRINT '-Es un ittil" 
1320 ' 

1330 ' electronegatividad 

1340 ' 

1350 BEEP 

1360 RESTORE 1390 

1370 FOR 1=1 TO Z: READ E 

1380 NEXT I 

1390 DATA 2.1,5,1.0,1.5,2,2.5,3,3.5,4,5, 
0.9,1.2,1.5,1.8,2.1,2.5,3,5,0.8,1,1.3,1. 
5,1.6,1.6,1.5,1.8,1.8,1.8,1.9,1.6,1.6,1. 
8,2,2.4,2.8,5,0.8,1,1.3,1.4,1.6,1.8,1.9, 
2.2,2.2,2.2,1.9,1.7,1.7,1.8,1.9,2.1,2.5, 
5,0.7,0.9 

1400 DATA 1.1,1.1,1.1,1.2,6,1.2,6,1.1,1. 

2,6,1.2,1.2,1.2,1.1,1.2,1.3,1.5,1.7,1.9, 

2.2,2.2,2.2,2.4,1.9,1.8,1.8,1.9,2,2.2,5, 

0.7,0.9,1.1,1.3,1.5,1.7,1.3,1.3,1.3,6,6, 

6,6,6,6,6,6,6 

1410 PRINT " 

1420 IF E*5 THEN PRINT '-Eltctromgativi 
dad: sin carácter': GOTO 1450 
1430 IF E=6 THEN PRINT '-Electronegativi 
dad: no deteriinada":60T0 1450 
1440 PRINT '-Electronegatividad (de Paul 
ing):'j sPRINT E :BEEP 
1450 RESTORE 1490 
1460 FOR 1=1 TO Z : READ NA 
1470 NEXT I:LOCATE 0,20 
1480 PRINT '-Nasa atoiica«';HA 
1490 DATA 1.008,4.003,6.941,9.012,10.81, 
12.011,14.007,15.999,18.998,20.179,22.98 
9, 24. 305, 26. 982, 2B. 086, 30. 74, 3206, 35. 453 
,39.948,39.098,40.08,44.956,47.90,50.941 
,51.996,54.938,55.847 
1500 DATA 58.933,58.70,63.546,65.38,69.7 
2,72.59,74.922,78.96,79.904,83.80,85.468 
,87.62,88.906,91.22,92.907,95.94,97,101. 
07,102.91,106.4,107.87,112.40,114.82,118 
.69,121.75,127.60,126.90 



1510 DATA 131.3,132.91,137.34,138.1,140. 

12,140.91,144.24,145,150.4,151.96,157.25 

, 158. 93, 162. 50, 164. 93, 167. 26, 168. 93, 173. 

04,174.97,178.49,180.95,183.85,186.21,19 

0., 192.22,195.09,196.97 

1520 DATA 200.59,204.37,207.2,208.98,209 

,210,222,223,226,227,232.04,231,238.03,2 

37, 244, 243, 247, 247, 251 , 254, 257, 258, 255, 2 

60,260 

1530 BEEP 

1540 LOCATE 0,22: PRINT'HAS INFORMACION 

PULSANDO <RETURN>" 

1550 T$ a INKEY$: IF T$=" 60T0 1550 

1560 OPEN 'grp:' FOR OUTPUT ASI1 

1570 SCREEN 2 

1580 DRAH'bi8,0' 

1590 IF Z=l OR Z=7 OR Z=8 OR Z=9 OR Z=10 
OR Z=2 OR Z=17 OR Z=18 OR Z=36 OR Z=54 
OR Z=86 THEN PRINTtl,'-A temperatura aib 
i ente ei un gas" : SOTO 1620 
1600 IF Z=35 OR Z=80 OR Z=3i OR Z=55 OR 
Z«B7 THEN PRINTI1,'-A temperatura aibien 
te es un liquido'iGOTO 1620 
1610 PRINTI1,'-A temperatura aibiente es 
un solido" 




1620 BEEP 
1630 PRINTI1," 

1640 IF Z=43 OR Z=61 OR Z>92 THEN PRINTI 

l,' -Es un eleiento artificial" 

1650 IF Z<93 AND Z<>43 AND Z<>61 THEN PR 

INTI1," -Es un eleiento natural" 

1660 PRINTI1," 

1670 RESTORE 1690 

1680 FOR 1=1 TO Z ¡READ D ¡NEXT I 

1690 DATA 0.00009,0.000179,0.53,1.85,2.3 

4,2.26,0.00125,0.00143,0.0017,0.0009,0.9 

7,1.74,2.7,2.33,1.82,2.07,0.00317,0.0017 

8,0.86,1.55,3.0,4.51,6.1,7.19,7.43,7.86, 

8.9,8.9,8.96,7.14,5.91,5.32,5.72,4.79,3. 

12,0.0037,1.53,2.6,4.47 

1700 DATA 6.49,8.4,10.2,11.5,12.2,12.4,1 

2,10.5,8.65,7.31,7.3,6.62,6.24,4.94,0.00 

585,1.9,3.5,6.17,6.67,6.77,7,0,7.54,5.26 

,7.89,8.27,8.54,8.8,9.05,9.33,6.98,9.84, 

13.1,16.6,19.3,21,22.6,22.5,21.4,19.3 
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Programa 



•m* u nnKéi ■«. 1. 1 1, n int'ntnt -t.i.n 





1711 DATA 13.6,11. 85,11. 4,9.8,9.2,0,0.00 
973,0,5,0,11.7,15.4,19.17,19.5,19,11.7,7 
,0,0,0,0,0,0,0,0 

1720 BEEP 

1730 IF D*0 THEN PRINTtl,' -Densidad no 
deteriinada-:GOTO 1750 
1740 PRINTtl , a -Densidad (qr/iD-.'jD 
1750 PRNTH, ' 'sPRINTU,' -Situación en 
la tabla periodi- ca del";' ';N0H$ 
1760 ' 

1770 1 esquela de la tabla periódica 
1780 ' 

1790 LINE(64,77)-(64,126) 
1800 LIHE(7i,77)-(71,126) 
1810 LINE (7B, 84 > - (78, 126) 
1820 LINE (85, 99) -(85, 126) 
1830 LIHE(92,99)-(92,126) 
1840 LIHE(99,99)-(99,126) 
1850 LINE ( 106, 99) - ( 106, 126) 
1860 LIHE(113,99)-(113,119) 
1870 LINE(120,99)-(120,119) 
1880 LINE1127,99)-(127,U9) 
1890 LINE(134,99)-(134,U9) 
1900 LNE(141,99)-(141,119) 
1910 LINE(14B,85)-(148,119) 
1920 LINE(155,B5)-(155,119) 
1930 LINE(162,85)-(162,119) 
1940 L1NE(169,85)-(169,119) 
1950 L1NE(176,B5)-(176,119) 
1960 LINE<183,77)-(183,119) 
1970 LINE(190,77)-<190,119) 
1980 LINE(64,77)-(71,77) 
1990 LINE(183,77)-(190,77) 
2000 LINE(64,84)-(78,B4). 



2010 LINE ( 148,84) - (190,84) 
2020 LINE(64,91)-(78,91) 
2030 LINE(148,91)-(190,91) 
2040 LINE(64,98)-(190,98) 
2050 LINE(64,105)-(190,105) 
2060 LINE(64,112)-(190,112) 
2070 LINE(64,119)-(190,119) 
2080 LINE(64,126)-(106,126) 
2090 LINE(7B,130)-(176,130) 
2100 LINE(78,137)-(176,137) 
2110 LINE (78 f 144) - ( 176, 144) 
2120 LINE(78,130)-(78,144) 
2130 LINE (85, 130) - (85, 144) 
2140 LINE(92,130)-(92,144) 
2150 LINE(99,130)-(99,144) 
2160 LINE ( 106, 130) - ( 106, 144) 
2170 LINE(113,130)-(113,144) 
2180 LINE(120,130)-(120,144) 
2190 LINE f 127, 130) - ( 127, 144) 
2200 LINEÍ134, 130)-(134, 144) 
2210 LINE(141,130)-(141,144) 
2220 LINE(14B,130)-(148, 144) 
2230 LINE(155,130)-(155,144) 
2240 LINE(162,130)-(162,144) 
2250 LINE(169, 130) -( 169, 144) 
2260 LINE ( 176 9 130) - ( 176, 144) 
2270 BEEP 
22B0 ' 

2290 ' localiza en tabla periódica 
2300 ' 

2310 IFZ=1 THEN DRAM'bi66,75 a :60T0 2470 
2320 IFZ=2 THEN DRAWbil85,75':G0T0 2470 
2330 IF Z=3THENDRAN'bi66,82":6OTO2470 
2340 IF Z=4THENDRAITbe73,82':GOTO2470 







2350 IF ZU1THEN A=143+(Z-4)t7:DRAITbi=a 
;,82':6OTO2470 

2360 IF Z=ll THENDRAN*bi66,89 , :6OTO2470 
2370 IF Z=12 THENDRAWb«73, 89" : 6OTO2470 
23B0 IF Z<19THEN A= 143+ ( 2-12) *7: DRAW"b«= 
a;,89':60T0 2470 

2390 IF K37THEN A=(Z-19) $7+66:DRAH , bi=a 
;,96":60T0 2470 

2400 IF Z<55THEN A s (Z-37) 17+66: DRAITbi s a 
;,103':6OTO 2470 

2410 IF Z<57THEN A=(Z-55)t7+66:DRAITbi=a 
;,110':GOTO2470 

2420 IF Z<71THEN A=(Z-57)*7+80:DRAII'bi=a 
;,128":60T0 2470 

2430 IF Z<B7THEN A=(Z-71) 17+80: DRAK'bi=a 
;,110':6OTO2470 

2440 IF Z<B9THEN A=(Z-87) $7+66:DRAWbi=a 
;,117':G0T0 2470 
2450 IF ZU03THEN A= (2-89) $7+80: DRAWb«= 
a;,t35':60T0 2470 

2460 IF Z<107THEN A=(Z-103)$7+B0:DRAtCbi 

2470 PRINT#1,". B 
2480 COLOR 6,0,0 
2490 DRAH "b«8, 165" 

2500 PRINTil, "DESEA CONSULTAR OTRO ELEHE 
NTO? PULSAR <s> o <n>' 
2510 CLOSEtl 
2520 R$=INKEY$:IF R$=" THEN 2520 ELSE 6 
OTO 2530 

2530 IF RMV THEN 80 
2540 IF R*=V THEN COLOR 15,4,4:END 
2550 60T0 2520 
2560 ' 

2570 ' subrutinas 
2580 ' 

2590 RESTORE 380 

2600 PRINT '-Nuiero atoiico , ¡ : INPUT Z 
2610 IF ZM04 OR Z<1 THEN N$= f ELEMENTO': 
60T0 280 

2620 FOR 1=1 TO Z : READ N0H$ 
2630 NEXT I 
2640 RETURN 
2650 RESTORE 420 ■ 

2660 PRINT •-Silbólo del eleiento';: INPU 
T SNt 
2670 Z=Z+1 

2680 IF Z>104 THEN N$=SIH$:60T0 280 
2690 READ S$ :IF St*SIH$ THEN 2710 
2700 GOTO 2670 
2710 RESTORE 380 
2720 FOR 1=1 TO Z: READ NOIU 
2730 NEXT I:CLS 
2740 RETURN 
2750 END 
2760 PRINT 



6rupo';:RETURN 
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listados 



Datos de elementos químicos 



• 58 

■ 58 

■ 58 

• 58 

■ 58 

■ 58 
- 58 
-183 
■159 
■214 




56 
43 
179 
154 
115 
228 
58 
58 
58 
46 
91 
247 
21 
117 



271 - 16 
281 -159 
29* -141 
311 -166 
311 -177 
321 -149 
330 -212 
341 -196 
351 - 63 
361 - 55 
370 -214 
381 - 21 
391 - 37 
411 - 22 
411 - 71 
421 -251 
431 -218 
441 -153 
450 -118 
461 -211 
471 -153 
4BI - 58 
491 - 58 
511 - 58 
511 -112 
520 -244 



330 - 23 
540 - 40 

550 -218 
560 - 16 
570 - 29 
580 -180 
590 - 86 
600 - 16 
610 -179 
620 -241 
630 -221 
640 - 17 
650 -142 
660 - 75 
670 -130 
680 - 9 
690 -251 
700 -157 
710 - 97 
720 -244 
730 -185 
740 -121 
750 - 21 
760 - 37 
770 -209 
780 - 70 



790 -251 
800 -251 
810 -176 
820 - 50 
830 - 52 
840 -213 
850 - 58 
860 - 58 
870 - 58 
880 -213 
890 -131 
900 -238 
910 - 32 
920 -121 
930 -126 
940 -11B 
950 -128 
960 -198 
970 -232 
980 -225 
990 -134 
1000 -166 
1010 -156 
1020 -235 
1030 - 58 
1040 - 58 



1050 - 58 
1060 -192 
1070 -201 
1080 - 33 
1090 - 48 
1100 - 75 
1110 -112 
1120 -163 
1130 -221 
1140 - 53 
1150 - 50 
1160 -103 
1170 -157 
1180 -253 
1190 -252 
1200 -205 
1210 - 5 
1220 -174 
1230 -138 
1240 -216 
1250 - 38 
1260 -197 
1270 -157 
1280 -213 
1290 - 38 
1300 - 72 



1310 -176 
1320 - 58 
1330 - 58 
1340 - 58 
1350 -192 
1360 - 13 
1370 - 5 
13B0 -204 
1390 -247 
1400 - 10 
1410 -213 
1420 - 72 
1430 - 21 
1440 -185 
1450 -113 
1460 - 78 
1470 - 62 
1480 -104 
1490 - 17 
1500 -191 
1510 - 69 
1520 -244 
1530 -192 
1540 - 31 
1550 -110 
1560 - 17 




1570 -216 
1580 -101 
1590 -137 
1600 -137 
1610 -216 
1620 -192 
1630 - 54 
1640 -141 
1650 - 75 
1660 - 54 
1670 - 58 
1680 - 10 
1690 - 95 
1700 -154 
1710 -206 
1720 -192 
1730 - 48 
1740 -106 
1750 - 
1760 - 58 
1770 - 58 
1780 - 58 
1790 - 34 
1800 - 4B 
1810 - 69 
1820 - 98 



1830 -112 
1840 -126 
1850 -140 
1860 -147 
1870 -161 
1880 -175 
1890 -189 
1900 -203 
1910 -203 
1920 -217 
1930 -231 
1940 -245 
1950 - 3 
1960 - 9 
1970 - 23 
1980 -248 
1990 -230 
2000 - 13 
2010 -209 
2020 - 27 
2030 -223 
2040 -153 
2050 -167 
2060 -181 
2070 -195 
2080 -125 



2090 -217 
2100 -231 
2110 -245 
2120 -133 
2130 -147 
2140 -161 
2150 -175 
2160 -189 
2170 -203 
2180 -217 
2190 -231 
2200 -245 
2210 - 3 
2220 - 17 
2230 - 31 
2240 - 45 
2250 - 59 
2260 - 73 
2270 -192 
2280 - 58 



2290 
2300 
2310 
2320 
2330 
2340 



58 
58 
21 
72 
21 
20 



2350 - 8 
2360 - 34 
2370 - 33 
2380 - 16 
2390 - 30 
2400 -103 
2410 -121 
2420 -160 
2430 -181 
2440 -192 
2450 -222 
2460 -112 
2470 -100 
2480 - 78 
2490 -209 
2500 - 74 
2510 -233 
2520 -229 
2530 -223 
2540 -148 
2550 -120 
2560 - 58 
2570 - 58 
2580 - 58 
2590 - 23 
2600 -184 



2610 - 95 
2620 
2630 - 
2640 -142 
2650 - 63 
2660 -108 
2670 -166 
2680 -124 
2690 -190 
2700 - 15 
2710 - 23 
2720 -206 
2730 -165 
2740 -142 
2750 -129 
2760 -229 





METE EL GOL QUE TE HARA MILLONARIO 

QUINIELAS 

El programa imprescindible para la liga más larga 
de la historia española 

QUINIELAS te ofrece: 

introducir 38 equipos - introducir el partido de la jornada - almacenar los resultados, los goles 
locales y los goles visitantes - estadística gráfica de aciertos - realizar 25 boletos de 8 apuestas 
(200), por reducción o al azar - sacar los boletos por impresora - clasificación detallada - 
estadística gráfica de equipos - estadística gráfica de quinielas - grabación de datos en cinta - 
escrutinio de boletos memorizados - consultas y correcciones - etc., etc. 

700 Ptas. 
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Monitor al día 




SOFTWARE PARA MSX2 

Idealogic lanza la isla del Tesoro 

Iidealogic ha adaptado este clásico de la 
literatura de aventuras para los orde- 
nadores MSX de la segunda generación 



Ahora puedes ser tú mismo el protagonis- 
ta de la aventura, conversando con Long 
John Silver, Billy Bones, etc. La aventura 
se acompaña con casi 100 imágenes y di- 
ferentes temas musicales. 
Una nueva oportunidad, dentro de la co- 
lección TELARIUM de adentrarse en el 
mundo de la aventura por ordenador. 



EXPO HALLEY 86 

En la ciudad de Valladolid tuvo lugar 
la Expo Halley 86 entre los días 5 y 
16 de noviembre. La misma contó 



con la participación de unos veinte países 
que aportaron las fotografías sobre el Co- 
meta Halley a su paso por la Tierra, tanto 
en 1910 como en 1986. Asimismo Ceres 
Software ofreció una demostración de un 
sistema informático que permite el alma- 
cenamiento de datos en cintas de video y 
que ha sido diseñado con un ordenador 
MSX. La aplicación de este sistema es una 
serie de 13 capítulos de 35 minutos cada 
uno titulada «Universos» en la que se ex- 
pone el macro y el microcosmos, desde su 
nacimiento hasta los últimos datos cono- 
cidos. 



AMSTRAD ENFERMO 

Según informes de la revista francesa 
MICROS MSX, los ordenadores 
CPC de AMSTRAD están bajando 
puntos rápidamente en el mercado de los 
ordenadores domésticos, mientras que los 
MSX de la primera generación ganan pues- 
tos día a día. 

Según MICROS MSX la razón es la rapi- 
dez con la que AMSTRAD cambia de mo- 
delos, dejando a los usuarios con un poco 
serio servicio post-venta. Otra razón im- 
portante para la caída de los CPC es la fa- 
cilidad con que AMSTRAD (en principio 
fabricante de desconocidos equipos de alta 
fidelidad) pasan de un modelo a otro, sin 
mantener ningún tipo de compatibilidad 
entre sus propios productos. Esto, en de- 
finitiva, resulta en perjuicio de los usua- 
rios. Veamos que ocurrirá con la entrada 
en escena del AMSTRAD PC. Según la re- 
vista francesa, más usuarios gritándoles a 
sus máquinas que se resisten a funcionar 
correctamente. 



AMSTRAD Y THOMSON: 
MSX ABORTADOS 

Las compañías THOMSON Y AMS- 
TRAD firmaron por la norma MSX 
en 1984, guardaron los contratos en 
el fondo de una caja fuerte y se olvidaron 
del asunto momentáneamente. 
¿Por qué? Hace dos años el MSX ya pro- 
metía convertirse pronto en un standard 
indiscutible, como el de las cintas de audio. 
Tanto AMSTRAD como THOMSON se 
adhirieron a la norma para cubrirse las es- 
paldas. 

El motivo de no llevar a la práctica el 
AMSTRAD MSX es claro. La competen- 
cia entre las diferentes marcas del MSX es 
muy fuerte, imponiéndose el precio, la ca- 
lidad y la marca. ¿Podía AMSTRAD ha- 
ber ofrecido esos tres puntos? 




UNIDADES DE DISCO PHILIPS 



Ciertos periféricos hacen que los 
MSX dejen de parecer ordenadores 
domésticos y entren en el mercado 
de ordenadores de mayor precio. 
Claro ejemplo de esto son las dos unida- 
des de disco de gran velocidad ofrecidas 
por PHILIPS. Si usted es un usuario de 
MSX puede conectar a su ordenador la 
unidad VY0010, obteniendo de ese modo 
una gran capacidad de memoria de masa. 
Si sus necesidades son mayores, puede co- 
nectar a la primera unidad una segunda 
«on Une», que le permitirá doblar la capa- 
cidad del sistema. 

NUEVOS PROGRAMAS PARA 
MSX2 

PHILIPS aumenta su catálogo 
de gestión 

PHSTAT 2 es un paquete integrado 
de programas que permite hacer del 
ordenador una potentísima herra- 
mienta para el cálculo estadístico. Poten- 
. pero de fácil manejo, permite, una vez 
lirados los datos desde el editor, expre- 




sarlos gráficamente, realizar complejos cál- 
culos, etc. 

Pero lo más importante. Todos los datos, 
aparte de poderse volcar en la impresora, 
se pueden tratar con el paquete de mate- 
máticas PHMATH 2. 



CATALOGO DE SOFTWARE 
SONY 

En una cuidada edición 

Sony España, S.A. es una de las com- 
pañías que más cuidan a los usuarios 
de MSX. Ahora acaba de lanzar un ex- 
celente catálogo de software que no sólo 
incluye todas las cintas, cartuchos, tarje- 
tas y discos existentes hasta hoy en el mer- 
cado español, sino también los periféricos, 
libros y revistas que tratan el sistema 
MSX. 

El catálogo incluye una somera intro- 
ducción informática y de las principales 
ventajas que implica el uso del estándar 
MSX. Asimismo todo el software es pre- 
sentado cuidadosamente clasificado según 
su género, de modo que encontramos lo 
que hay de educativo, aplicación, juegos, 
etc., con sus correspondientes precios y fo- 
tografías de pantallas. 

Para obtener este magnífico catálogo 
sólo basta solicitarlo a Sony España, S.A. 
escribiéndole a Sabino de Arana, 42-44, 
Barcelona 08028. 




MSX 




PRN-M09 

Nueva impresora matricial 
para los MSX 

SONY ESPAÑA, S.A. lanza al mer- 
cado una nueva impresora matricial 
compatible con el estándar. Las prin- 
cipales características de esta impresora 
son: cabezal de impresión de nueve agu- 
jas, impresión bidireccional a una veloci- 
dad de 75 c.p.s. en letra normal y 18 c.p.s. 
en letra de alta calidad. 
Acepta todos los caracteres de los MSX y 
los imprime en diferentes formatos: 
PI( 



dose expandir todos esos tipos. 
Puede funcionar con papel continuo (trac- 
ción) y hoja a hoja (fricción) llegando a 136 
caracteres por línea en modo comprimi- 
do y 80 en modo normal. 
Su atractivo diseño y sus prestaciones no 
están en nada mermadas por su precio: 
57.000 Ptas + IVA. 



SONY CALLERY 

Nueva sala de exposición 



permanente 



s 



ONY ESPAÑA, S.A., ya abrió al pú- 
blico su nueva sala de exposición per- 
manente. En esta sala, tanto particu- 



lares como distribuidores tienen un acce- 
so directo a todos los aparatos de la mar- 
ca y pueden efectuar todo tipo de consul- 
tas y pruebas. Cualquier persona puede 
acudir a esta exposición y solucionar to- 
das sus consultas sin ningún compromi- 
so, ya que en el SONY GALLERY no se 
realizan ventas. 

La apertura al público de esta nueva sala 
ha tenido un rotundo éxito entre el pú- 
blico. Con esta nueva sala de exposición 
activa, se intenta ofrecer un mejor servi- 
cio y proporcionar una mayor informa- 
ción al usuario final. 
SONY tendrá abierta la sala hasta finales 
de otoño, momento en que se clausurará 
para prepararla de cara la invierno y fe- 
chas navideñas. 





Monitor al día 



MSX CLUB DE MAILING 

Nuevo Departamento de Manhattan Transfer 



'¡ÜÜMli 



De acuerdo con su política de servi- 
cio al lector, especialmente de 
aquél que habita en poblaciones 
alejadas de los grandes centros comercia- 
les, Manhattan Transfer ha puesto en fun- 
cionamiento un nuevo departamento. Se 
trata de MSX CLUB MAILING a través 
del cual se ofrece una serie de productos 
que los lectores podrán solicitar y obte- 
ner por correo. En una primera etapa se 
ofrece el Tutor Basic, un breviario de los 



principales comandos de Basic MSX, de- 
sarrollado por Idealogic y presentado en 
formato de cartucho, y los cartuchos adap- 
tadores para las tarjetas inteligentes Bee 
Card y SoftCard. Próximamente se incor- 
porarán otros productos, tales como ls izr- 
jetas de juegos comercializadas por Serma. 
Como siempre, los suscriptores de MSX 
CLUB y MSX EXTRA gozarán de un 
descuento especial en sus compras. 
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CASSETTE DR-303 

Grabador/reproductor 
de SANYO 

SANYO lanza al mercado su nueva 
grabadora-reproductora da datos, ade- 
cuados para los ordenadores MSX. 
Este cassette incorpora un sistema de car- 




ga rápida, control automático de tono y 
de volumen. El avance rápido y el rebo- 
binado están libres del control^ ejercido 
por el ordenador limitándose éste a jas 
operaciones de grabación y reproducción. 
Es de destacar su motor de velocidad cons- 
tante, que elimina muchos de los proble- 
mas de un cassette convencional. Su pre- 
cio, 13.000 Ptas. 

MPC-200 

Nuevo aporte de SANYO 
al mercado de los MSX 

Día a día crece el número de orde- 
nadores del standard MSX. SAN- 
YO ofrece una interesante máqui- 
na dentro de la familia de los MSX de pri- 
mera generación. El MPC-200 está dota- 
do de teclado en castellano (con la letra 
ñ), así como con una configuración de 80 
Kb RAM (16 VRAM) y 32 Kb ROM. 
Cuenta también con dos slots para cartu- 
chos y dos conectores para joysticks. 
Un nuevo MSX, a J 
y por 39.000 Ptas. 



APLICACIONES PARA LA CASA 
Y LOS PEQUEÑOS NEGOCIOS 

Editado por Noray 



aplicaciones para 

la casa y los 
pequeños negocios 





Eeste nuevo título se viene a sumar 
a los que ofrece la Editorial NO- 
RAY sobre el MSX. Introducción 
al MSX y 18 juegos dinámicos para tu 
MSX, etc. 

En este libro, eminentemente práctico, se 
incluyen quince programas de utilidad do- 
méstica, muy acertados para aquellos que 
quieran realizar programas que sirvan para 
algo. Se incluyen programas de ajuste del 
monitor, de agenda telefónica, de repre- 
sentación de gráficos, barras y líneas, de 
lotería primitiva. En fin, una colección de 
programas para que el ordenador sea útil 
en nuestro hogar. 




„ 'TE DESAFIAMOS*' 

amstrad ¡ACEPTA EL RETO! 




DESAFIAMOS TU IMAGINACION, TU LOGICA, TU ESPIRITU DE 
AVENTURA. A TU JOYSTICK. TE DESAFIAMOS A PASARLO 
BIEN ¡A LO GRANDE! ¡A TOPE CON TU ORDENADOR! 
TE PRESENTAMOS LOS MAS ALUCINANTES JUEGOS. 
SUPERPROGRAMAS. SUPER: DESAFIANTES, INTRIGANTES 
LLENOS DE ESTRATEGIA PARA QUE USES A FONDO TU IMAGI- 
NACION Y DEMUESTRES TU HABILIDAD E INTELIGENCIA TE 
PROPONEMOS HORAS DE DIVERSION SEGURA. 
¿HASTA QUE HORA DE LA MADRUGADA RESISTIRAS? 

¡ACEF 

CtlANI M M A I I- VI NI )A SE < ' INVIRTU ) Misil .kia 



Vera 
Cruz 




O í i Ir / 

Q. 

< 




¡¡NOVEDAD! 



EL CASO VERACRUZ/WAR CHESS/THE MOST AMAZING MEMORY GAME / MANDRAGORA / LAS VEGAS /EL GNOMO FED0R/3D MAGIC PIN BALL/SKATE DRAGON 



NFOGRAMES 



Pedidos: Tel. 253 74 00 



Calle Valencia, 8S 08029 BAR* l IONA lele* Dl.GC 
teléfonos 253 86 93 2SJ89 09 253 90 45 25W4O0 




EL MAS OCUPADO DE LA CASA 

\ 311^ """" 

i r 



[sx de PHILIPS. 
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/ 




Porque nadie puede resistirse a la tentación del 
MSX de Philips. A sus divertidos juegos de aventuras. 
A sus entretenidos programas educativos. O a los 
de oficina, como el "Home office". Capaz de hacer 
estadísticas, estudio de cuentas, contabilidad, etc. 



Y los programas específicos para hacer más fácil el 
trabajo al ama de casa. O al estudiante. Además, posee 
una amplísima gama de periféricos: impresoras, 
monitores, ratón, etc. Disfrute con el MSX de Philips. 
Siempre que no esté ocupado. 



PHILIPS 



Philips integra su futuro. 



PHILIPS 



Servicio de información al cliente: tels. (91) 413 21 61 - 413 22 46. 




DE MAILING 



¡NOS APLICAMOS A SER UTILES! 

ATMVES DE MSX CUIB OE MHUNG PUEDES ADQUIRIR 



BASIC TUTOR IDEALOCIC 



SSBffSS 



ADAPTADORES TARJETAS! 
I INTELIGENTES ■ 
BEE CARD Y SOFTCARD 



Iffi 



msus 




Deja el manual de lado. Inserta este breviario de 
BASIC en cartucho y olvídate. No ocupa memoria. 
PVP 3.500 pts. 



Note quedes 
al margen 
y disfruta 
de las tarjetas 
inteligentes. 
Lo último 
en soft. 
PVP 2.850 pts. 



Un 



l 



Dirección 
Población 







CP 



Prov. 



Tel. 



□ Tutor Basic Ptas. 3.500- 

□ Sweet Acorn Ras. 5.200 - 



□ Adaptador BeeCard Ras. 2.850- □ Adaptador Softcard Ptas. 2.850 - 

□ Backgammon Ptas. 5.200- □ Shark Hunter Ptas. 5.200- 
■ □ BarnStormer Ptas. 5.200- □ Chock'n Pop Ras. 5.200,- □ Le Mans 2 Ptas. 5.200- 

| Gastos de envío por cada producto 100 - pts. Remito talón bancario de pts. a la orden de Manhattan 

Transfer, S.A. Enviar a MSX CLUB de MAILING, Roca i Batlle 10-12 bajos - 08023 Barcelona. 
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INTERFAZ MIDI EMR MIDITRACK 



iFco. Javier Guerreroi 



SONIDO 
PROFESIONAL 
EN TUMSX 



Este cartucho de interfaz 
MIDI permite controlar 
uno o varios instrumen- 
tos musicales equipados 
con el interfaz MIDI. 



La combinación producida por un or- 
denador MSX, el interfaz EMR 
y el programa MIDITRACK PER- 
FORMER, suministrado con el interfaz 
abre un nuevo camino para los amantes 
de la música y los músicos profesionales: 
La utilización de un ordenador domésti- 
co para simular el control de un magne- 
tófono digital de 8 pistas. 

El ordenador crea excitantes posibilida- 
des de control de grabación utilizando en 
combinación con instrumentos equipados 
con MIDI (teclados, guitarras, procesado- 
res de efectos, dispositivos de muestreo, 
cajas de ritmos, etc.). 

Este interfaz musical conecta entre cual- 
quier MSX de 32 o 64 K y los instrumen- 
tos equipados con MIDI pasando la infor- 
mación codificada adelante y atrás, es 
decir, que permite acceder a cualquier par- 
te de la grabación previamente realizada 
y gestionar los datos almacenados en cin- 
ta o diskette. 



HARDWARE NECESARIO 

Los requerimientos mínimos de hard- 
ware para poder operar con el MIDI- 
TRACK son los siguientes: 

— 1 MSX de 32 o 64 K. De todos mo- 
dos, no todos los MSX son compatibles, 
aunque sí la mayoría. En el slot 0, de las 
páginas 2 y 3 son normalmente las bási- 
cas tanto para los equipos de 32 como de 
64 K, teniendo la segunda RAM de 32 K 
colocada en otro slot (normalmente el 2, 
utilizando las páginas 2 y 3). 

— Un grabador/reproductor de cas- 
sette. 

— Puede sustituirse el grabador por una 
unidad de diskette de Wx pulgadas. 

— El interfaz EMR MSX MIDI, prepa- 
rado para su conexión directa a ordena- 
dor MSX en la ranura de cartucho. 

— Cables de conexión DIN de 5 cla- 
vijas. 

La manera más sencilla de utilizar este 
interfaz y el software suministrado con él 
es mediante la conexión de un teclado 
MIDI. Teniendo en cuenta que con esta 



configuración se puede trabajar hasta en 
ocho canales simultáneamente, esto nos va 
a permitir grabar una voz en cada una de 
las pistas, teniendo la posibilidad de escu- 
charlas todas interpretadas simultánea- 
mente. 



De todos modos, las posibilidades no se 
terminan ahí. El EMR dispone de las co- 
nexiones MIDI IN (1) OUT (2) y THRU 
(1), que permiten controlar simultánea- 
mente más de un instrumento, conectan- 
do el instrumento principal en las salidas 




IN y OUT y el o los secundarios en serie 
utilizando la toma THRU. Pueden llegar 
a conectarse hasta dieciséis instrumentos 
siempre y cuando vayan equipados con la 
conexión THRU, efectuándose la cone- 
xión entre los aparatos a través de esa sa- 
lida. 



MULTIPISTA DOMESTICO 

Tu ordenador MSX puede convertirse 
mediante la instalación de este aparato en 
un centro de control de grabaciones, si- 
mulando un grabador digital multipista, 
además de un reproductor idóneo para la 
interpretación de solos, puesto que éstos 
pueden ser almacenados o recuperados 
desde el cassette o la unidad de disco. Si 
el equipo MSX tiene una RAM de usua- 
rio de 64 K es posible registrar entre 10 
y 20 minutos de música, desde un solo de 
percusión hasta un minué, pasando por la 
simulación de una orquesta completa en 
un teatro de ópera. 

Utilizando la opción exclusiva del pro- 
grama MIDITRACK PERFORMER 
« Arrange» (arreglo), distintas partes de una 
composición pueden ser grabadas y arre- 
gladas hasta en 64 combinaciones distin- 
tas de pistas, lo que puede llegar a conver- 
tirse en una interpretación de más de una 
hora. 

Incluso si se desea efectuar una graba- 
ción profesional, este sistema permite a los 
músicos llegar al estudio con un material 
base de primera calidad o con la pieza pre- 
parada, que posteriormente puede ser edi- 
tada, cortada, ampliada añadiéndole más 
pistas de otros instrumentos y efectuar la 
mezcla final, lo que puede ahorrar consi- 
derables horas de estudios y que, lógica- 



mente, puede abaratar ostensiblemente el 
coste de la grabación. 



MANEJO 

Una vez efectuadas todas las conexiones, 
procede efectuar la carga del programa MI- 
DITRACK PERFORMER. 

El manejo del interfaz con este progra- 
ma resulta extremadamente sencillo, pues- 
to que en pantalla se visualizan todas las 
opciones mediante iconos, pudiéndose ac- 
ceder a la deseada en cada instante senci- 
llamente desplazando la flecha indicado- 
ra del cursor a la opción deseada y 
pulsando la barra de espacio. La sección 
izquierda de la pantalla muestra las espe- 
cificaciones para los canales 1 a 8 durante 
la grabación o reproducción de la música. 

Los iconos, de izquierda a derecha, re- 



presentan las siguientes operaciones: 

PISTA: Consiste en una fila de núme- 
ros del 1 al 8, refiriéndose cada uno de ellos 
a un canal en particular, para la utilización 
del sistema de grabación digital. 

PLAY: Una o más pistas previamente 
grabadas pueden ser reproducidas o des- 
conectadas independientemente durante 
la reproducción simplemente introducien- 
do las letras O (OH) o P (Play). 

CANAL: Situando la flecha en el canal 
deseado, puede ser modificado introdu- 
ciendo un número entre 1 y 16; número 
que representa el canal por el que el ins- 
trumento MIDI recibe la información. 
Habitualmente, el canal por defecto para 
la mayoría de los instrumentos MIDI es 
el 1, pero esto puede variar (como ocurrió 
en esta redacción cuando conectamos el 
equipo de Jorge Serraute, un teclado DX-7 
Yamaha conocido intérprete, arreglista, 
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profesor de música e investigador de mú- 
sica electrónica, equipo que nos estuvo 
volviendo locos nada más y nada menos 
que porque operaba en el canal 10, y por- 
que con las ganas de oírlo interpretar sus 
composiciones a través de MIDI olvida- 
mos consultar el manual para ver cuál era 
el canal de conexión). 

LOOP: Después de haber grabado una 
pista, no puede efectuar un «LOOP», es 
decir, una repetición predeterminada de 
la melodía grabada. Utilizando esta opción 
junto con «Arrange» (brevemente comen- 
tada anteriormente), pueden producirse 
interesantísimos efectos de repetición va- 
riada que recuerdan las producidas me- 
diante un secuenciador. 

CONTROL: Es un importante coman- 
do para el ahorro de memoria, que per- 
mite regular todos los controles, abando- 
narlos, regular la velocidad y el control de 
pulsación. 

PITCH: Permite la transposición de una 
o varias pistas grabadas (monofónicas o 
polifónicas) semitono a semitono hasta la 
tonalidad deseada. 

MODE: Permite colocar el teclado en 
modo polifónico o monofónico, según se 
desee grabar acompañamiento o solos). 

Existen más iconos con muchas más po- 
sibilidades, pero aquí nos hemos limitado 
a los esenciales. También mediante este có- 
modo sistema de selección podemos ob- 
servar el directorio del disco, seleccionar 
abación o carga de datos, fijar el com- 
el tempo, acceder a la función de me- 
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trónomo, borrar una pista o la totalidad 
de la grabación efectuada, sincronizar el 
sistema MIDI con el reloj interno o con 
un reloj de cualquier aparato conectado, 
obtener información grabada en formato 
de texto para cada pieza almacenada, mez- 
clar pistas, corregir la duración de las 
notas... 

GRABACION Y 
REPRODUCCION 

Para grabar una pista, el procecimiento 
es terriblemente sencillo. Basta con selec- 
cionar una pista. Tras esto, ir a la fila de 
PLAY y conectarla (P) desplazarnos a la 
fila de canal y colocar el adecuado para el 
instrumento con el que vayamos a efec- 
tuar la grabación; y tras todo ello pulsar 
la letra R (RECORD). Una vez efectua- 
do todo este proceso, tan sólo tenemos que 
pulsar la barra de espacio del ordenador 
y comenzar a interpretar el tema que va 
a ir colocado en esa pista. 

Cuando finalicemos, pulsaremos de nue- 
vo la barra de espacio con lo que se dará 
por concluida la grabación. 

Si deseamos añadirle más voces, simple- 
mente debemos situarnos en otra pista y 
repetir el mismo procediminto. Si desea- 
mos oír la pieza pregrabada mientras gra- 
bamos la segunda voz, tan sólo debemos 
mantener una P en el canal correspondien- 
te en la columna PLAY; tecleando una O 
en caso contrario. 

La reproducción consiste prácticamen- 
te en el mismo proceso, salvo que en lu- 
gar de escribir una R escribiremos una P 
(Play) para que suene todo aquello que ha- 
yamos grabado, pudiendo modificar tim- 
bres, tempo, arreglos... 

Si la cosa nos ha gustado, tan sólo tene- 
mos que grabarla en cinta o disco con una 
etiqueta y... con la música a otra parte. 



CONCLUSIONES 

Indiscutiblemente, se trata de un peri- 
férico que hará las delicias de todos aque- 
llos usuarios que deseen sacar partido por 
la vía de la música a sus ordenadores. 

El manejo de interfaz y del software es 
extremadamente sencillo, y la posibilidad 
de conexión a cualquier instrumento do- 
tado de MIDI abre un abanico de posibi- 
lidades que puede superar fácilmente el 
ámbito domestico para convertirlo en una 
potente herramienta profesional, que tie- 
ne como único límite la imaginación. 
Este interfaz es distribuido por VEN- 
A.MATIC, y su precio de venta al pú- 



MSX tabla comparativa 





MSX versus 




Todos conocemos las virtudes del sistema 
MSX, la posibilidad de intercambiar progra- 
mas y ampliaciones con otros ordenadores 
del estándar, aunque sean de diferente mar- 
ca; pero además de ser compatibles, los MSX 
son punteros dentro del mercado de los or- 
denadores domésticos 



Vamos a realizar una comparación 
entre los ordenadores no compati- 
bles más extendidos del mercado es- 
pañol y los MSX. 

Aquellos poseedores de un MSX que 
realizaron un sondeo al mercado de orde- 
nadores antes de adquirir el suyo encon- 
trarán muchos datos familiares; pero los 
indecisos entre un ordenador MSX o uno 
no compatible tendrán una amplia base 
para fundamentar su elección. 



PRINCIPALES VENTAJAS 
DEL MSX 

— En primer lugar, y esta es la razón de 
ser de los MSX, existe una compatibilidad 
total de programas, lenguajes y periféri- 
cos entre los ordenadores de todas las mar- 
cas que componen el estándar. 

— Su potente lenguaje MSX-BASIC, si- 
milar en gran medida al lenguaje BASICA 
o al GW-BASIC de los ordenadores IBM- 
PC y toda la gama de compatibles con sus 
sistemas, le permite realizar de un modo 
simple y rápido (ver las tablas comparati- 
vas de lenguajes) los más complicados pro- 
gramas. Además su gran parecido al BA- 
SICA de IBM (también desarrollado por 
Microsoft como el MSX-BASIC) permi- 
te, sin ningún tipo de preparación previa, 
que un usuario de MSX pueda realizar 
complejos programas con ordenadores de 
gama profesional. 

— Los ordenadores MSX «crecen con el 
usuario». No se quedan obsoletos ya que 
pueden evolucionar con la misma unidad 
central y teclado, y funcionar paralela- 
mente con disco y cassette, por ejemplo, 
permitiendo simultanear programas pro- 
fesionales con juegos de entretenimiento 
o educativos. 

— Grandes posibilidades de ampliación: 
hasta 4 unidades de diskette que propor- 
cionan 4.000 Kb (4 Mb). 

— Soportan programas en cassette, dis- 
kette, tarjeta y en cartuchos. 

— Disponibilidad de programas de todo 
tipo: educativos, aventuras, acción, depor- 
tes, gestión, juegos educativos y de entre- 
tenimiento. 
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VENTAJAS DE LOS ORDENADORES MSX 2 SOBRE EL AMSTRAD PCW-8256 




MSX-2 


AMSTRAD 


Memoria 

Unidad de diskette 

Unidades de diskette conectables 
Conexión a cartucho 
Colores 

Planos de sprite 
Sistemas operativos 

Conexión a impresora 
Teclas de función 


384 Kb 

1.000 Kb (720 formateado) 
Formato estándar 
Hasta 8 unidades 
Sí 

256 de una paleta de 512 
32 

MSX-BASIC, MSX-DOS. Los 
ficheros de datos son compatibles 
con IBM-PC 

MSX o Centronics 

10 funciones definidas y predefinibles 


256 Kb 

175 Kb/cara. No standard 

2 unidades 
No 

Imposible. Sólo fósforo verde 
Imposible 

CP/M; pero incompatible con otros 
formatos 

Unicamente la que lleva 
No definidas 



VENTAJAS DE LOS ORDENADORES MSX W SOBRE 


EL SPECTRUM PLUS 2 
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MSX 


SPECTRUM 


Lenguaje BASIC 
Texto en pantalla 
Colores 

Planos de sprite 

Posibilidad de almacenar ficheros de 
datos en cassette 
Soporte de programas 

Funciones especiales 

Mandos y joysticks 

Comandos de gráficos directos 

Teclado 

Conexión a impresora 
Orientado a 


160 instrucciones 
40 caráct.x24 líneas 
16 
32 

SI 

Cinta, cartucho, disco, tarjeta 

Cálculos en doble precisión 
Permite interrupciones 
Normales, a distancia por infrarrojos, 
bola gráfica ratón, etc. • 
Elipses, cuadrados, curvas 
Macrolenguaje de gráficos 
Con caracteres castellanos 
Centronics estándar 

Educación, gestión de empresas, 
aventuras, juegos educativos y de 
entretenimiento. 


60 instrucciones 
32 caráct.x24 líneas 
8 


NO 

Cinta, Microdrive (90 Kb de lectura 
secuencial) 

Sólo joystick de Spectrum Plus 2. 

Sin caracteres castellanos 

No sigue ningún estándar. Especial 

Spectrum Plus 2. 

Sólo juegos 

. 



— Dispone de potentes comandos grá- 
ficos y musicales directos. 

— Gran resolución gráfica: 

•MSX; 256x192 puntos y 16 co- 
lores. 

• MSX-2: 512x212 puntos y 256 co- 
lores. 

— Pueden conectarse a cualquier tipo de 
televisor (B/N o color) y a monitor (co- 
lor, fósforo verde o naranja), de modo que 
puede ser utilizado con cualquier televi- 
sor que haya en casa o bien funcionar con 
monitores de alta calidad. 

— Existen actualmente en España 6 re- 
vistas especializadas sobre el sistema MSX, 
habiendo además una gran bibliografía so- 
bre el sistema MSX (especialmente sobre 
el BASIC MSX). 

— Los ordenadores MSX, entre los mu- 
chos lenguajes a que pueden acceder, dis- 
ponen de la posibilidad de trabajar con el 
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lenguaje LOGO MSX (Sony), homologa- 
do por el Proyecto del Ministerio de Edua- 
ción y Ciencia «ATENEA». 

— Los MSX disponen de gran cantidad 
de periféricos: reproductoras/grabadoras 
de cassette de alta velocidad, unidades de 
diskette de hasta 1 .000 Kb de capacidad en 
los dos sistemas de disco ampliamente nor- 
malizados en el mercdo: 5 Va pulgadas, 
compatible con los discos de los IBM-PC 
(y compatibles), y los 3 Vi pulgadas, for- 
mato al que se están pasando las más im- 
portantes marcas líderes en informática. 
(Se espera a corto plazo una versión de 
IBM con estos diskettes, ya utilizados por 
algunos de los ordenadores compatibles a 
su sistema). 

— Gran cantidad de programas, y no 
sólo juegos como en otros ordenadores, 
sino utilidades, educativos, de gestión, de 
aventuras, etc. 



CONCLUSIONES 

Los ordenadores MSX están más orien- 
tados a la familia para la utilización de la 
informática como ayuda a la educación. 

Se puede ir ampliando a medida que el 
usuario desee, adaptándose a sus necesida- 
des futuras. 

El hecho de que el MSX tenga un len- 
guaje de programación tan potente facili- 
ta y simplifica la programación, reducien- 
do considerablemente la longitud del 
programa y 
el usuario. 

EJEMPLO: EJECUCION 
DE LA ESCALA MUSICAL: 
DO-RE-MI-FA-SOL-LA-SI 
(octava 4) 

1. MSX: 

10 PLAY «CDEFGAB» 
o bien: 
10 PLAY 

«N36N38N40N41N43N45N47» 

2. ZXSPECTRUM: 

10 BEEP 1,0: BEEP 1,2 
20 BEEP 1,4: BEEP 1,5 
30 BEEP 1,7: BEEP 1,9 
40 BEEP 1,11 
o bien: 

10 FOR 1=1 TO 7 
20 READ A 
30 BEEP 1, A 
40 NEXT I 

50 DATA 0,2,4,5,D7,9,11 

3. OR1CATMOS: 

10 MUSIC 1,4,1,10: WAIT 25 




20 MUSIC 1,4,3,10: WAIT 25 
30 MUSIC 1,4,5,10: WAIT 25 
40 MUSIC 1,4,6,10: WAIT 25 
50 MUSIC 1,4,8,10: WAIT 25 
60 MUSIC 1,4,10,10: WAIT 25 
70 MUSIC 1,4,12,10: 
o bien: 

10 FOR 1=1 TO7 
20 READ A 
30 MUSIC 1,4,A,10 
40 WAIT 25 
50 NEXT I 

60 DATA 1,3,5,6,8,10,12 
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4. COMMODORE64: 
10 FOR L = 54262 TO 54206: 

POKEL, O: NEXT 
20 POKE 54296,15 
30 POKE 54277,7 : P 
40 POKE 54276,17 
50 FOR T = 1 TO 300 : NEXT 
60 READ A: READ B 

70 IF B 1 THEN END 

80 POKE 54273,A ; POKE 54272,B 
90 FOR T =1 TO 250 : NEXT 

100 GOTO 30 

110 DATA 17, 37, 19, 63, 21, 154, 22, 
227 

120 DATA 25, 177, 28, 214, 32, 94, - 
1> 1 

GRAFICOS 

1. Dibujo de un cuadrado (longitud 
lado = 50): 

(50, 50) 




MSX: 

10 SCREEN 2 

20 LINE (50, 50) - (100, 100), 1, B 
30 GOTO 30 

ZXSPECTRUM: 
10 PLOT 50, 50 
20 DRAW 50, 
30 DRAW 0, -50 
40 DRAW -50, 
50 DRAW 0, 50 

2. Dibujo de un triángulo 




MSX: 

10 SCREEN 2 



20 DRAW «BM100, 100 ESO F50L100» 
30 GOTO 30 

ZXSPECTRUM: 
10 PLOT 0,0 
20 DRAW 50, 50 
30 DRAW 50, -50 
40 DRAW -100, 

3. Dibujo de la silueta de una montaña: 




MSX: 

10 SCREEN 2 

20 DRAW «BM50, 

100R10E20F5R10E10F5E10R5E5F 

10R5F10F10» 
30 GOTO 30 

ZXSPECTRUM: 

10 PLOT 0,0 

20 DRA W 10,0 

30 DRAW 20,20 

40 DRA W 5,-5 

50 DRAW 10,0 

60 DRAW 10,10 

70 DRA W 5,-5 

80 DRAW 10,10 

90 DRA W 5,0 
100 DRAW 5,5 
110 DRAW 10,-10 
120 DRAW 5,0 
130 DRA W 10,-10 

4. Dibujar un cuadrado y pintarlo de 
color (p.e. rojo) 

MSX: 

10 SCREEN 2 

20 LINE (50,50) - (100,100), 9, BF 
30 GOTO 30 

IX SPECTRUM: No puede hacerlo en 
BASIC. 

5. Dibujar una elipse y pintarla de 
color (p.e. blanco) 

MSX: 

10 SCREEN 2 

20 CIRCLE (100,100), 50, 15„,.5 
30 PAINT (100,100), 15 
40 GOTO 40 



ZX SPECTRUM: No puede hacerlo en 
BASIC 
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Especial para nuevos 
usuarios. 

Para que ningún lector 
quede al margen te propo- 
nemos una nueva sección/ 
concurso. 

¡Participa con tu pe- 
queño programa de gráfi- 
cos, sonido, juego o truco! 

BASES 

1. " Podrán participar to- 

dos nuestros lectores, 
cualquiera que sea su 
edad. 

2. ° Los programas se re- 

mitirán grabados en 
cassettes debidamente 
protegidas dentro de 
su estuche plástico. 

3. ° No se admitirán aque- 

llos programas plagia- 
dos o editados por 
otras publicaciones. 

4. ° Las mejoras a los pro- 

gramas se considerarán 
una aportación al mis- 
mo y se publicarán en la 
sección Línea Directa. 



5. ° MSX CLUB premiará 

aquellos programas 
publicados con 2.000 
pts. 

6. ° MSX CLUB se reserva 

el derecho de abonar 
los premios en metáli- 
co o su equivalente en 
software, haciéndolos 
efectivos a los 15 días 
de publicados. 



FALLO Y 
JURADO 

7° El Departamento de 
Programación actuará 
como jurado y su fallo 
será inapelable. 
8.° Los programas remi- 
tidos no se devolve- 
rán, siendo destruidos 
aquellos que no sean 
seleccionados. 
10.° El plazo finalizará el 
30 de junio de 1987. 
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UN LIBRO 
PENSADO PARA 
TODOS LOS 
QUE QUIEREN 
INICIARSE DE 
VERDAD 
EN LA 

PROGRAMA- 
CION BASIC 

Construcción de 
programas. El potente 
editor todo pantalla. 
Constantes numéricas. 
Series, tablas y 
cadenas. Grabación de 
programas. Gestión de 
archivo y grabación 
de datos. Tratamiento 
de errores. Los 
gráficos del MSX. 
Los sonidos del MSX. 
Las interrupciones. 
Introducción al 
lenguaje máquina. 



Y ADEMAS PROGRAMAS DE EJEMPLO 

Alfabético. Canon a tres voces. Moon Germs. Bossa Nova. Blue 
Bossa. La Séptima de Beethoven. La Flauta Mágica de Mozart. 
Scrapple from the apple & Donna Lee. The entretainer. Teclee un 
número. Calendario perpetuo. Modificación Tabla de colores 
SCREEN 1. Rectángulos en 3-D. Juego de caracteres alfabéticos en 
todos los modos. Juego Matemático. Más grande más pequeño. 
Poker. Breackout. Apocalypse Now. El robot saltarín. El archivo 
en casa. 
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Deseo me envíen el libro de los secretos del MSX, para lo 
cual adjunto talón de 1.500 ptas. a la orden de MAN- 
HATTAN TRANSFER, S.A. 

Nombre y apellidos 

Calle n> o 

Ciudad CP 

Este boletín me da derecho a recibir los secretos MSX en 
mi domicilio libre de gastos de envío o cualquier otro 
cargo. No se admite contrareembolso. 

Importante: Indicar en el sobre MANHATTAN 
TRANSFER, S.A. 

«LOS SECRETOS DEL MSX* 

Roca i Batlle, 10-12 Bajos - 08023 BARCELONA 



MSX por dentro 



Por Willy Miragall 



SECUENCIAS 
DE ESCAPE 



No son demasiados los que, po- 
seyendo un ordenador MSX, co- 
nocen las grandes posibilidades 
ue ofrecen las instrucciones co- 
ificadas que emulan un terminal 
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Las secuencias de escape son unas ins- 
trucciones codificadas (no incluidas 
en la mayoría de los manuales), que 
os permitirán realizar operaciones especia- 
les en la pantalla. 

Para que os hagáis a la idea, he aquí un 
pequeño ejemplo: 
10 FOR Y=0 to 40 
20 PRINT "MSX Club de Programas"; 
30 NEXT Y 
40 LOCATE 0,3 
50 A$=INPUT$(1) 
60 IF A$ = "0" THEN PRINT 
CHR$(27) "L"; 

70 IF A$ = "l" THEN PRINT 
CHR$(27) "M"; 
80 GOTO 50 

!No¡, no basta con mirarlo. ¡Hay que te- 
clearlo! Con un listado 
cualquier cosa.. 

Haz RUN y fíjate en la pantalla... llena 
del dichoso mensaje...; pero..., pulsa el 1... 
otra vez, ¿y el 0? y ¿cómo se hace eso?... 
Ya lo ves, con una secuencia de códigos; 
pero no desesperes, todo quedará claro. 

Busca ahora un asiento cómodo y el am- 
biente... «ideal» ¿Ya?, pues sumérjete en 
la lectura y disfruta con las secuencias: 

Hace no muchos años, los ordenadores 
no funcionaban como los que hoy cono- 
cemos. Tener un ordenador en casa era 
algo impensable incluso para la mayoría 
de empresas. Disponer de un ordenador 
representaba un gasto fuera de su alcan- 
ce. Los ordenadores eran aparatos gran- 
des y con precios astronómicos que sólo 
grandes empresas y centros de cálculo po- 
dían permitirse. 

Particulares y pequeñas empresas po- 
dían conectarse al ordenador por medio 
de terminales, que consistían en un tecla- 
do y una impresora. 

La comunicación hombre-ordenador 
tiene lugar casi exclusivamente en forma 
de caracteres, mientras que la comunica- 
ción entre ordenadores es siempre numé- 
rica. Se necesita, por tanto, una relación 
entre caracteres y números. A cada carác- 
ter debe corresponderle un número y vi- 
ceversa; pero además se precisa que todos 
los ordenadores usen el mismo tipo de có- 
digos, para que los ordenadores sean ca- 
paces de entenderse entre sí. Esto último 
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no es así; existe una gran diversidad entre 
los diferentes ordenadores, siendo dos los 
conjuntos de caracteres más usados: 

- el ASCII (o ISO) de American Stan- 
dard Code for Information Interchange 
(Código Standard Americano para el In- 
tercambio de Información), que consta de 
128 caracteres. 

— y el EBCDIC con 256 caracteres. 

Los ordenadores MSX, como la mayo- 
ría de ordenadores personales y domésti- 
co, utiliza el código ASCII o bien el ASCII 
extendido, que consta de 256 caracteres en 
lugar de 128, siendo éste el caso del MSX. 

Cabe remarcar que estos códigos son in- 
dependientes del BASIC, así como de cual- 
quier otro lenguaje, y pertenecen a la 



BIOS del ordenador (Basic Imput Output 
System) encargada de la comunicación en- 
tre el ordenador y los diferentes periféri- 
cos, como son la pantalla, el teclado, la im- 
presora, etc. Podemos usarlos, por lo 
tanto, en cualquier lenguaje: BASIC, PAS- 
CAL, FORTRAN, C, o ENSAMBLA- 
DOR (siempre que utilicemos las rutinas 
de la BIOS en este último caso). 

Pero la comunicación ordenador-termi- 
nales precisa de unos códigos adicionales: 
retorno de carro, salto de línea, salto de 
página, tabuladores,... 

Por esta razón existen dentro del códi- 
go ASCII unos códigos que no represen- 
tan caracteres, sino operaciones. Estos son 
los códigos al 31. 
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Si a un terminal primitivo le añadimos 
una pantalla, la cosa se complica, ya que 
la pantalla precisa de operaciones adicio- 
nales, como son el borrado de la pantalla, 
el desplazamiento del cursor, etc. 

Así, con el paso del tiempo y las inno- 
vaciones tecnológicas, estos códigos del 
al 31 han variado su función, e incluso han 
sido insuficientes para el creciente conjun- 
to de operaciones a realizar con los peri- 
féricos. Por esta razón se crearon secuen- 
cias de códigos que permiten aún más 
operaciones. Para iniciar una de estas se- 
cuencias de códigos se utiliza el código 27 
(ESCAPE), por lo que a estas secuencias 
se les denomina secuencias de escape. 

El nombre de ESCAPE proviene de la 
función primitiva de este código (aún con- 
servada en algunos programas profesiona- 
les), que permitía salir del programa, es de- 
cir, finalizar el trabajo con ese programa. 

Veamos a continuación como han que- 
dado distribuidos los 32 primeros códigos 
del MSX, para pasar, a continuación a tra- 
tar en detalle cada una de las secuencias 
de escape en el standard. 

Código 0: (Nuil) -* Este código indica 
nada, y no hay que confundirlo con el es- 
pacio, que es eso, un espacio. Este códi- 
go, poco utilizado, es útil, por ejemplo, 
cuando tenemos que utilizar un cierto nú- 
mero de caracteres y hemos de rellenar 
con «nada». 

Código 1: -*Este código indica el paso 
a caracteres alternativos, es decir, a un cier- 
to número de caracteres que normalmen- 
te no aparecerían en la pantalla. Por 
ejemplo, para obtener todo el set de ca- 
racteres normal haremos: 
10 FOR X=l to 255 
20 PRINT CHR$(X); 
30 NEXT X 

pero si cambiamos la línea 20 y le indica- 
mos que nos imprima los caracteres alter- 
nativos... 

20 PRINT CHR$(1) CHR$ (X); 

¡ p asa a caracteres alternativos. 

¿Que no veis la diferencia? ¿Dónde es- 
tán las letras mayúsculas? ¿Qué hay en su 
lugar? Esos son los caracteres alternativos. 
También podéis conseguir que aparezcan 
los caracteres alternativos pulsando la telca 
CTRL y la tecla A simultáneamente y lue- 
go una letra mayúscula. Cabe decir que to- 
dos estos códigos de operación ASCII (del 
al 31) pueden ser sustituidos por una 
combinación CTRL + letra (ver tabla 1). 

Código 2: Este código mueve el cursor 
al inicio de la palabra precedente, consi- 
derando como palabra todo conjunto de 
caracteres que comience con una letra o 
dígito (A-Z, a-z, 0-9). 

Existe una limitación en este comando, 
y es que sólo funciona desde el teclado, es 
decir, CTRL + B. Por lo tanto PRINT 

(Sigue en pág. 66) 




SECUENCIAS 
DE CODIGOS 



Los 3 1 códigos utilizados para estas ope- 
raciones resultaban insuficientes, por lo 
que para determinadas operaciones se uti- 
lizan secuencias de códigos, iniciadas con 
el código 27 (escape). 

Vamos a ver esto mucho más claro con 
cada una de las secuencias: 

CURSOR ARRIBA - ESC A 

Esta secuencia de escape mueve el cur- 
sor una línea hacia arriba, sin cambiar de 
columna. Si el cursor alcanza la línea su- 
perior de la pantalla se detendrá. Con es- 
ta secuencia obtenemos el mismo 
resultado que con el código 30; pero con- 
tamos con la ventaja de que ESC A es com- 
patible con la mayoría de los ordenadores, 
mientras que el código 30 es casi esclusi- 
vo de los MSX. 

Para utilizar esta secuencia no tenemos 
más que hacer: 

PRINT CHR$(27); "A"; 

****MUY IMPORTANTE**** 

En las secuencias de escape es muy im- 
portante el carácter que sigue al código 27, 
y no puede ser pasado de mayúsculas a mi- 
núsculas o viceversa. Así pues, no es lo 
mismo ESC A que ESC a. 

CURSOR ABAJO - ESC B 

Esta secuencia mueve el cursor una línea 
hacia abajo, sin cambiar de columna. El 
cursor no sobrepasará la última línea de 
la pantalla, y no se producirá SCROLL 











en ningún caso, (equivalente al código 31). 
Para utilizarla no hay más que hacer: 
PRINT CHR$(27); "B"; 

CURSOR DERECHA - ESC C 

Esta secuencia mueve el cursor un ca- 
rácter hacia la derecha. Si el cursor alcan- 
za el margen derecho de la pantalla se 
detendrá, aspecto que la diferencia del có- 
digo 28, que pasa a la línea siguiente al lle- 
gar al final de la actual. 

Para utilizarla: 

PRINT CHRS 

CURSOR IZQUIERDA - ESC D 

Mueve el cursor un carácter hacia la iz- 
quierda. Si el cursor alcanza el margen iz- 
quierdo de la pantalla se detendrá. Esta 
característica lo diferencia tanto del códi- 
go 29 como del código 8, que pasan a la 
línea anterior, y sólo se detienen al llegar 
a la esquina superior izquierda de la 
pantalla. 

El modo de utilización es análogo a las 
anteriores. 

BORRA PANTALLA - ESC E 

Borra la pantalla y sitúa el cursor en la 
esquina superior izquierda de la misma. Es 
equivalente al código 12. 



CURSOR A POSICION BASE - ESC 
H 

(Sií 





en 





r- 
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Coloca el cursor en la esquina superior 
CHR$(2); no tendrá ningún efecto. 

Código 3: (Break) El código BREAK 
era mucho más utilizado en los ordenado- 
res de hace muy pocos años, y permite pa- 
rar la ejecución de un programa. En los 
MSX este código ha sido sustituido por 
CTRL + STOP, aunque la combinación 
de teclas correspondientes a este código 
CTRL + C, permiten detener el comando 
AUTO, o un programa, pero sólo cuan- 



do se esté esperando la respuesta a un 
INPUT. 

Código 4: No utilizado. 

Código 5: Borra toda la línea desde la 
posición del cursor en adelante. Hay que 
hacer notar que se borra la «línea lógica», 
es decir, no una línea de pantalla (40 
caracteres = línea física) sino una línea en 
la memoria del ordenador (por ejemplo, 
una línea de un programa en BASIC pue- 
de ocupar más de una línea en la pantalla). 



Este código sólo funciona desde el tecla- 
do: CTRL + E. 
Código 6: Mueve el cursor al inicio de 

la siguiente palabra. Sólo funciona desde 
el teclado con CTRL + F. 

Código 7: (BELL) Produce un pitido, 
al igual que lo hace el comando BEEP del 
Basic. Este código funciona tanto desde te- 
clado CTRL + G, como por programa 

Código 8: (BACKSPACE) Hace retro- 




DJ 

S (Viene de la pág. 65) 

izquierda de la pantalla sin borrar el con- 
tenido de ésta. 

BORRA HASTA EL FINAL DE LA 
PAGINA - ESC J 

Borra toda la información existente en 
la pantalla desde la posición del cursor (in- 
clusive) hasta el final de la última línea de 
la pantalla. 



BORRA HASTA EL FINAL DE LA 
LINEA - ESC K 

Borra toda la información existente en la 
pantalla desde la posición del cursor (in- 
clusive) hasta el final de la línea. 

Esta secuencia de escape, aparentemen- 
te equivalente al código 5, no lo es en ab- 
soluto. Dos importantes diferencias las 
distinguen. En primer lugar esta secuen- 
cia de escape borra hasta el final de la lí- 
nea física (y no de la línea lógica como 
hacia el código 5); pero además puede uti- 





Código 


Nombre 


Teclado 





NULL 




1 

2 




CTRL + A 
CTRL+B 


3 


BREAK 


CTRL+C 


4 

5 




CTRL+D 
CTRL+E 


6 




CTRL+F 


7 


BEEP 


CTRL+G 


8 


BACKSPACE 


CTRL+H 


9 


TAB 


CTRL+I 


10 


LINE FEED 


CTRL+J 


11 


HOME 


CTRL+K 


12 


CLR 


CTRL+L 


13 


CARRIAGE RETURN 

• 


CTRL+M 


14 


CTRL+N 


15 




CTRL + O 


16 




CTRL+P 


17 




CTRL+Q 


18 


INSERT 


CTRL+R 


19 




CTRL+S 


20 




CTRL+T 


21 




CTRL+U 


22 




CTRL+V 


23 




CTRL+W 


24 




CTRL+X 


25 




CTRL + Y 


26 




CTRL+Z 


27 


ESCAPE 


CTRL+[ 


28 


CURSOR RIGHT 


CTRL+/ 


29 


CURSOR LEFT 


CTRL+] 


30 


CURSOR UP 


CTRL+ ' 


31 


CURSOR DOWN 


CTRL+4 



lizarse por programa y no únicamente des- 
de el teclado. 

INSERTA UNA LINEA - ESC L 

Inserta una nueva línea en blanco. Esta 
secuencia mueve la línea sobre la que está 
el cursor, y todas las que la siguen, una lí- 
nea hacia abajo. La última línea de la pan- 
talla desaparece y el cursor se sitúa al 
principio de la nueva línea en blanco. 

BORRA UNA LINEA - ESC M 

Borra el contenido de la línea sobre la 
que se encuentra el cursor, mueve todas 
las líneas situadas a continuación una lí- 
nea hacia arriba, inserta una línea en blan- 
co en la última posición de la pantalla y 
sitúa el cursor al principio de la línea que 
ocupaba. 

Estas dos secuencias (ESC L y ESC M) 
son las que permitieron realizar el progra- 
ma con el que abrimos la primera parte 
de este artículo. 

DIRECCIONAMIENTO DIRECTO 
DEL CURSOR - ESC Y (línea) 
(columna) 

Esta secuencia mueve el cursor al pun- 
to de la pantalla especificado por (línea) 
y (columna). Tanto línea como columna 
deben especificarse en formato binario, es 
decir, en la forma CHR$ (línea) CHR$ 
(columna), y se les debe añadir 32 (código 
del primer carácter que no es un código 
de control). 

Vamos a suponer que queremos situar 
el cursor en la cuarta fila de la quinta co- 
lumna. Para ello deberíamos hacer: 
PRINT CHR$(27); "Y"; CHR$(36); 
CHR$(37); 

Los valores de las líneas van desde en 
la línea superior de la pantalla, hasta 22 
o 23 en la inferior, dependiendo de que 
aparezcan o no en la pantalla las teclas de 
función programables. Si se utiliza un nú- 
mero de línea inferior a se entenderá la 
línea cero, y si se utiliza mayor a 22 o 23 
se entenderá, asimismo, la última línea de 
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ceder un cuadro el cursor y todos los ca- 
racteres situados a su derecha. 

Si lo indicamos por teclado CTRL + H 
o bien la tecla BS «- es destructivo, es de- 
cir, borra todos los caracteres sobre los que 
pase; pero si lo hacemos con un PRINT 
CHR$ (8); no borrará los caracteres so- 
bre los que pase. 

Código 9: (TAB) Desplaza el cursor a 
la siguiente posición del tabulador. Estas 
posiciones están colocadas en las colum- 
nas 0,8,16,24 y 32, es decir, cada 8 co- 
lumnas. 

Podemos utilizarlo con PRINT 
CHR$(9); con CTRL + I, y utilizando la 



tecla TAB 

Código 10: (LINE FEED). El cursor 
desciende una línea. El efecto aparente es 
el mismo que al pulsar la tecla de cursor 
hacia abajo (código 31). Existen dos dife- 
rencias fundamentales entre estos dos có- 
digos. La primera es que el código 10 
realiza un SCROLL de la pantalla (movi- 
miento vertical de la misma) si llega a la 
última línea mientras el 31 no lo hace. 
Además, el código 10 es compatible con 
todos los ordenadores e impresoras que 
utilicen el código ASCII, mientras que el 
código 31 sólo tiene esta función en los 
MSX. 



a la izquierda de la pantalla hasta el an- 
cho máximo de la pantalla menos uno. Es 
decir, si se ha hecho WIDTH 34, los va- 
lores oscilarán entre y 33, de izquierda 
a derecha. Si el valor de la columna no pue- 
de ser representado en la pantalla (por ex- 
ceso o por defecto) se tomará siempre la 
columna más a la derecha de la pantalla. 

Esta secuencia, aparentemente comple- 
ja de utilizar si la comparamos con el co- 
mando LOCATE del BASIC, puede 
ahorrarnos espacio en los programas si la 
definimos como función del BASIC. Pa- 
ra ello hacemos: 

10DEFFNC$(X,Y) = CHR$(27) + "Y" 
+ CHR$(32+Y) + CHR$(32 + X) 
y para utilizarla no tenemos más que 
hacer: 

250 PRINT FNC$(10,10); «UN MENSA- 
JE CUALQUIERA...» 

La ventaja de definir la función nosotros 
mismos, es que podemos variarla sin difi- 
cultad. Si queremos que la esquina supe- 
rior izquierda de la pantalla tenga por 
coordenadas (1,1) en lugar de (0,0), no te- 
mos más que cambiar la función; 
10DEFFNC$(X,Y) = CHR$(27) + "Y" 
+ CHR$(31 + Y) + CHR$(31 + X) 

BORRA TODA LA LINEA - ESC 1 

Esta secuencia borra la totalidad de la 




línea sobre la que se encuentra el cursor. 
(No confundáis la ele con un uno). 

SELECCIONA MODO DE VIDEO 
INVERSO - ESC p 

Esta secuencia no funciona en los MSX; 
pero si lo hace en los ordenadores Spec- 
travideo SV-318 y SV-328, por lo que ahí 
va... 

Esta secuencia hace que todos los carac- 
teres escritos a continuación intercambien 
el color de texto con el de fondo. Es de- 
cir, si estamos escribiendo con caracteres 
blancos sobre fondo azul, los caracteres 
que sigan a la secuencia (sólo esos), serán 
de color azul sobre tondo blanco. 

DESCONECTA MODO DE 
VIDEO INVERSO - ESC q 

Al igual que la secuencia anterior, ésta só- 
lo es operativa en los Spectravideo SV-318 
y SV-328, y desconecta el modo de video 
inverso seleccionado por la secuencia an- 
terior. 

CURSOR BLOQUE - ESC x 4 

Esta secuencia hace que el cursor apa- 
rezca como un bloque cuadrado (como 
normalmente aparece). 

Para utilizarla hacer: 
PRINT CHR$(27); '*x4"; 

CURSOR LINEA - ESC y 4 

Esta secuencia hace que el cursor apa- 
rezca como una línea (como ocurre cuan- 
do insertamos). 

Para utilarla hacer: 

PRINT CH$(27); "y4"; 

DESAPARECE CURSOR - ESCx5 

Esta secuencia hace que el cursor desa- 
parezca de la pantalla. En los ordenado- 
res Spectravideo SV-318 y SV-328, 
funciona en todo momento; pero en los 
MSX funciona en cualquier situación me- 
nos en un INPUT. 



MUESTRA CURSOR - ESC y 5 

Esta secuencia hace que el cursor vuel 
va a aparecer en la 



Funciona tanto en modo directo 
(CTRL+J) como por programa (PRINT 
CHR$(10);). 

Código 11: (HOME) El cursor retorna 
a la esquina superior izquierda de la pan- 
tall a; pero sin borrar los contenidos de 
ésta. 

Podéis utilizarla de tres formas: con la 
tecla HOME, con CTRL+K o con 
PRINT CHR$(11) ; 

Código 12; (CLR) Este código produ- 
ce el borrado de la pantalla, y sitúa el cur- 
sor en la esquina superior izquierda de la 
pantalla. 

Disponéis de cuatro formas de usarla: 
con la tecla CLS, con CTRL + L, con 
PRINT CHR$(12) o con el comando 
CLS del BASIC. 

Código 13: (Carriage Return) Este có- 
digo tiene varias funciones, dependiendo 
del contexto en el que lo utilicemos. Si lo 
utilizamos en la forma PRINT CHR$(13) 
desplazará el cursor al inicio de la propia 
línea; pero si lo entramos con teclado se 
produce un efecto bien distinto. Este có- 
digo, obtenido al pulsar CTRL + M o bien 
ENTER o RETURN, indica al ordena- 
dor que hemos concluido una línea lógi- 
ca, y comenzará su interpretación. El 
cursor, en este caso, se desplaza al inicio 
de la siguiente línea física. Esto se debe 
a que automáticamente se añade un LINE- 
FEED (código 10) al CR. En la mayoría 
de impresoras, esta opción de LINEFEED 
automático se puede eliminar con el mi- 
croruptor AUTOLINEFEED ON/OFF 
(consultad el manual de cada impresora en 
concreto). 

Código 14: El cursor se sitúa tras el últi- 
mo carácter de la línea lógica. Sólo fun- 
ciona desde el teclado, es decir, con 
CTRL + N. 

Códigos 15, 16 y 17: No se utilizan en 
los ordenadores MSX. 

Código 18: Este código indica el inicio 
de inserción. El cursor se reduce a la mi- 
tad, y todos los caracteres tecleados se in- 
sertarán en la posición del cursor, 
desplazando los ya existentes hacia la de- 
recha. La repetición de este código anula 
el modo de inserción. Sólo funciona des- 
de el teclado, con CTRL + R, o bien con 
la tecla INS. 

Códigos 19 y 20: No se utilizan en los 
MSX. 

Código 21: Borra la totalidad de la lí- 
nea donde está situado el cursor. Sólo fun- 
ciona desde teclado, con CTRL + U. 

Códigos 22, 23, 24, 25 y 26: No utili- 
zados por los MSX. 

Código 27: (ESCAPE) Inicia una se- 
cuencia de ESCAPE. 

Código 28: Desplaza el cursor una po- 
sición a la derecha. Este código, y todos 
los siguientes, funcionan tanto desde el te- 
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ciado (con las teclas de cursor) como por programa, con PRINT 
CHR$(28);. 

Código 29: Desplaza el cursor una posición a la izquierda. 

Código 30: Desplaza el cursor una posición hacia arriba, deteniéndose 
si alcanza el borde superior de la pantalla. 

Código 31: Desplaza el cursor una posición hacia abajo, deteniéndose 
si alcanza el borde inferior de la pantalla. 

Y aquí finaliza este amplio repaso a los códigos de control del MSX. 
Sólo nos queda repasar un pequeño detalle. ¿Cómo los utilizamos en nues- 
tro ordenador? 

Para utilizarlos no tenemos más que decirle al ordenador que escriba 
en la pantalla (o impresora) el código deseado. Evidentemente muchos 
de estos códigos no funcionarán en vuestra impresora (borrar pantalla por 
ejemplo), por lo que deberéis consultar el manual de la impresora para 
una mayor información. En BASIC, esto seria: 

PRINT CHR$(nn), siendo nn en código que queremos utilizar, o bien 
LPRINT CHR$(nn), si queremos utilizarlos en nuestra impresora. 

Si queremos hacerlo en ensamblador, por medio de las rutinas de la BIOS, 
deberíamos hacer: 



XOR A; 

LD (#F416), A; 

LD A, nn; 

RST # 18; 

RET; 

o en impresora: 

LD A,l; 

LD (#F416), A; 

LD A, nn; 

RST #18; 

RET 

o en PASCAL: 
BEGIN 

WRITE (CHR(nn)) 
END; 



Pongo un cero en el acumulador. 
PRTFLG=0 (Salidas a pantalla). 
Cargo en el acumulador el código 
ime. 



Pongo un uno en el acumulador. 
PRTFLG=1 (Salidas a impresora). 
Cargo en el acumulador el código 
Imprime. 




Conviértete en el más valiente pilo- 
to interestelar. Libra una especta- 
cular batalla y atraviesa el hiperes- 
pació. Destruye bunkers, minas 
mortales y naves agresoras. Tu des- 
treza y tus misiles puedan salvar la 
vida de los Hornos tiranizados por 
Darus. 

STAR RUNNER ES UN JUEGO 

SENSACIONAL 

Producido por 

Manhattan Transfer, S.A. 

Roca i Batlle, 10-12 

08023 Barcelona 
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TODOS LOS 

PROGRAMAS 
DEL CLUB 



PROGRAMAS DE UTILIDADES: 


AGENDA 


5 


AGENDA 


8 


BIBLIOTECA 


14 


BIORRITMOS 


3/4 


CARTA POR ORDENADOR 


7 


CODIFICADOR DE 




RESISTENCIA 


11 


CODIGO MORSE 


12 


CONTROL DE GASTOS 




CASEROS 


16/17 


CONVERSION 


18 


DESENSAMBLADOR Z-80 


16/17 




DIBUJA SPRITES 


16/17 


DISEÑADOR DE SPRITES 


9/10 


LOTERIA PRIMITIVA 


20 


LOTO 


3/4 


METABOL 


2 


PON EN HORA TU 
ORDENADOR 




14 


PROTEX 


14 


QUINIELA 


7 


RELOJ 


3/4 



PROGRAMAS DE GRAFICOS 



ARTISTA 


9/10 


AYUGRAF 


20 


CURVAS DE LISSAJOUS 


20 


ESTRELLA DEL DESIERTO 


3/4 


GRAF-1 


21 


GRAF-2 


21 


GRAFICOS 


2 


GRAFICOS 


3/4 


GRAFICOS 


5 


GRAFICOS Y SONIDO 


6 


LAPIZ MSX 


7 



He aquí una lista con todos los 
programas aparecidos en la revis- 
ta, agrupados por temas, con el nú- 
mero de la revista en que apare- 
cieron. 




PERSPECTIVA CONICA 
TRAZOS 



18 
18 



PROGRAMAS DE MUSICA: 



CUANDO LOS SANTOS VAN 

MARCHANDO 3/4 
MINUETO EN LA MENOR 19 




SINTETIZADOR 
ELECTRONICO 







PROGRAMAS EDUCATIVOS: 



ABC 


5 


COMETA HALLEY 


13 


EUROPA 


2 


FISICA 


8 


L'ARTICLE DETERMINE 


14 


LLAMADA OCULTA 


8 


MATEMATICAS 


9/10 


MOTOR DE EXPLOSION 


5 


PAISES 


15 


TEORIA QUIMICA 


21 


TEST MONOGRAFICO 


13 



PROGRAMAS DE JUEGOS: 



4 EN RAYA 19 

ACOSO EN NICARAGUA 12 

ADIVINA EL NUMERO 7 

AGUILA ESPACIAL 3/4 

ALUNIZAJE 2 

ASALTO A LA FORTALEZA 9/10 

BARCELONA OLIMPICA 3/4 

BOMBA LOCA 18 

CAPTURA EN PLUTON 1 

CARRERA DE COCHES 1 

CARRERAS DE CABALLOS 1 
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Fomenta la creatividad. Respeta el dere- 
cho de autor. Centenario de la conven- 
ción de Berna 1886-1986. 



Condiciones: 

Toda denuncia para esta sección deberá venir suscripta con 
los datos personales del denunciante, aunque su nombre no 
aparecerá publicado. 

— Deberá aportarse toda documentación que acredite el 
objeto de la denuncia, de lo contrario no se tendrá en cuenta. 

— La documentación recibida se hará llegar a la marca afec- 
tada para que tome las medidas jurídicas oportunas. 

— Una vez publicada la denuncia, ya no se tendrán en cuen- 
ta las que lleguen posteriormente sobre el mismo programa. 

— Los denunciantes recibirán como recompensa el progra- 
ma original denunciado. 

— Recordamos que se considera piratería la desprotección y 
copia de programas en cualquier formato y su uso con fines 
de lucro. 




«EL POLI», editado en cassette por STARS es 
presuntamente una copia ilegal del programa 
«PUNCHY», producido por MICRO BYTE y 
comercializado por Philips. 



PROGRAMAS MSX 



CARRETERA 
CAVERNOUS 
CRAZY JUMPER 
DAMAS 
DDT 

EL AHORCADO 
EL BORRA 
EL COMEBICHOS 
EL DARDO 
EL GUSANO 
EL OTHELLO 




3/4 
9/10 
12 
13 
6 
2 

9/10 
3/4 
8 
1 




EL PERAL 6 

EL RODILLO CHIFLADO 5 

EL TESORO DE SANDOKAN E.S. 

GOLF 3/4 

JET MONSTER 1 

JUEGO DE DADOS 5 

KEY UP 16/17 

LA BRISCA 21 
LA DIANA DE ROBIN HOOD 7 

LA GALLINA CIEGA 11 

LA GEMA NEGRA 18 

LA GUIA 21 
LA MANSION DE DRACULA 14 

LA PIRAMIDE 6 

LA RULETA 1 

MASTERMIND 1 

MEMORY 16/17 

MENU 3/4 

MERXE 21 

MISION JUNGLA 13 

NOX FALCON 6 

NUEVE POR NUEVE 1 

PAIS DEL CHOLLO 16/17 

PALOMITAS 15 

PAREJAS 9/10 

PHANTOM 19 

POKER 9/10 

REBOTES 1 

RESCATE LUNAR 15 

ROMPEMUROS 5 

SALTA CUBOS 11 

£.5.: ESPECIAL SOFTWARE 




AMSTRAD 

SPECTRUM 



MOLECULE MAN 

Perdido en un laberinto de 
256 habitaciones lucha en con- 
tra del tiempo y las radiaciones 
letales para teleportarte a 
lugar seguro. También incluido 
en esta cinta un único y fácil 
de utilizar, sistema de constru- 
cción de laberintos, que te 
permitirá corregir el existente 
o crear otros nuevos. 



MSX 

COMMODORE 




SPEED KING 

El juego de carreras de Moto- 
.cicletas con la emocionante 
acción de correr rueda con 
rueda contra otros 19 pilotos 
¡Ponte el casco y vive la inol- 
vidable aventura de las motos 
de altas prestaciones compi- 
tiendo a 250 millas a la hora! 



MSX 
AMSTRAD 
SPECTRUM 




KNIGHTTYME 

La tercera de la serie de aven- 
turas Magic Knight, se encon- 
tró a sí mismo transportado 
al siglo 25 abordo de la nave 
estelar PISCIS. El juego utili- 
za un sistema mejorado de 
animación, que fue utilizado 
por primera vez en Spellbound. 
¿Será éste el fin de Magic 
Knight?. 

SERIE M.A.D.: P.V.P. 1.100 PTAS. 



MSX 
AMSTRAD 
SPECTRUM 




FORMULA 1 

El juego de competición de 
mayor realismo, con los diez 
circuitos más famosos; 
SILVERSTONE, MONACO, 
MONZA... etc. 

¡3,2, 1... Adelante! 






CHILLER 

En una fría noche de Luna llena 
intentarás salvar a tu chica 
enfrentándote a cadáveres 
vivientes, arañas, espectros 
y murciélagos. 
¡Animo y recoge todas las 
cruces que puedas! 




SPACE WALK 

Eres un astronauta al mando 
de la Lanzadora Espacial. 
Desde tu base en la luna vigilas 
los satélites, descarriados y 
tienes que recuperarlos. Tra- 
baja por la superficie de la luna 
y cuando sea necesario utiliza 
el JET PACK para propulsarte 
al satélite. 

Licencia exclusiva para ESPAÑA ORO SOR 

¿! Fundadores, 3 28028 MADRID 
Teis. 255 45 00/09 



Ahora en 
GALERIAS 



La nueva generación de ordenadores 



A 



MITSUBISHI 

MSX 2 COMPUTER SYSTEMS 



Generación MSX2 

MLGl 




Un Ordenador para hoy... y para siempre 





GALERIAS 



Marcando estilo. 



